Einsteigen - Verstehen - Beh 


Der Jupiter Ace war 
ein mutiger Versuch, 
eine Maschine auf 
den Markt zu bringen, 
die standardmäßig mit 
FORTH ausgestattet 
war. Leider konnte 
sich der Jupiter Ace 
wegen seiner fehlen- 
den Farbgrafik, seines 
zu kleinen Arbeits- 
speichers und des zu 
geringen Bekannt- 
heitsgrads von FORTH 
nicht auf dem Heim- | 
computermarkt durch- 
setzen. 

Zusammen mit der 
hervorragenden Origi- 
nalliteratur bietet er 
jedoch einen ausge- 
zeichneten Einstieg in 
die Sprache. 
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... und so FORTH 


FORTH ist eine Programmiersprache, die ursprünglich zur Steuerung 
eines Radio-Teleskops entwickelt wurde. Unsere Einführung 
betrachtet zwei wesentliche Eigenschaften dieser Sprache: 


Interaktivität und Erweiterbarkeit. 


ORTH wurde Ende der sechziger Jahre von 

Charles Moore speziell zur Steuerung wis- 
senschaftlicher Instrumente entwickelt, die 
eine sehr genaue Justierung benötigen. Die 
Leistungsfähigkeit dieser Sprache geht weit 
über reine Steuerungsanwendungen hinaus. 
Zur Einführung ın dıe grundlegenden Eigen- 
schaften von FORTH ist es jedoch sınnvoll, sıch 
einmal zu überlegen, wie beispielsweise eın 
Teleskop durch FORTH gesteuert würde. 

Es wäre doch ganz nett, wenn wir ın der 
Lage wären, am Computerterminal ın der 
Sternwarte einfach einzutippen: 

30 GRAD ELEVATION 
und die Einstellung des Teleskops würde sıch 
sofort genau um diesen Wert ändern. Es wäre 
darüber hinaus sinnvoll, häufig verwendete 
Befehlssequenzen zusammenfassen und ab- 
speichern zu können, um sich unnötige Tıppar- 
beit zu ersparen. Wenn zum Beispiel die Ein- 
stellung des Teleskops 90 Grad Elevation und 
O Grad Azımut betragen würde, könnte man 
einen Befehl mit dem Namen „PARK" definie- 
ren, nämlich als 

0 GRAD AZIMUT 90 GRAD ELEVATION 


Jupiter = 
A 


II 


Du 20 GE ca u u CH Im Cu 5 
23 20 0 zu Cu Cu Eu cn 5 


Insgesamt benötigen wır also 

® elementare Teleskop-Befehle, 

® eine Möglichkeit, diese Befehle zu kom- 
plexeren Befehlen (zu einem Teleskop-Pro- 
gramm) zusammenfassen zu können. 

Aus eınem solchen System würde am Ende 
eine eigene, komplette Teleskop-Program- 
miersprache entstehen, dıe über besondere 
Eigenschaften verfügt. 

stellen Sıe sich zunächst einmal vor, Sie 
müßten diese Aufgabe ın BASIC lösen. Zwar 
lassen sıch hier die fest eingebauten Befehle 
wie PRINT oder RUN direkt über dıe Tastatur 
eingeben, problematisch wırd es aber mıt den 
neu definierten Befehlen. 


ELEVATION und AZIMUT 


Nehmen wır an, sıe haben Ihre Befehlserweite- 
rungen ELEVATION und AZIMUT als Unterpro- 
gramme ın den Zeilen 1000 bzw. 1100 abgelegt. 
Der Befehl PARK würde so aussehen: 


1200 REM PARK 
205 LEI GRAD =% 
1210 GOSUB 1000 
I2ISLEIT GEAD =&0 
1220 GOSUB 1100 


1225 RETURN 
Eine andere Möglichkeit wäre, zunächst eine 


entsprechende Vanable zu definieren: 
LET PARK = 1200 
und dann die Befehlssequenz aufzurufen, in- 
dem Sıe die Variable im GOSUB angeben: 
GOSUB PARK 
Am eınfachsten ıst es Jedoch, wenn Sıe den 
Unterprogrammteil als eine Prozedur definie- 
ren (dies ist zum Beispiel im Acorn-BASIC oder 
in zahlreichen BASIC-Erweiterungen möglich). 
Der Aufruf würde dann etwa ın der Form 
PROCPARK 
erfolgen. Eine Alternative wäre es, einen Inter- 
preter zu schreiben, der die Befehle entgegen- 
nımmt und ausführt. wıe beispielsweise 
100 INPUT C$ 
110 IF C$ = "PARK" THEN GOSUB 1200 : 


GOTO 100 
Allerdings ıst es nun nıcht mehr möglıch, dıe 


eingebauten BASIC-Befehle direkt über die 
Tastatur einzugeben. 

Aus dem Vorangegangenen war zu ersehen, 
daß wir zwei Forderungen an unsere Teleskop- 
Sprache stellen müssen: 


® Erstens muß sıe interaktiv sein. Das heißt, 
sıe muß ın der Lage seın, die Befehle direkt 
auszuführen, nachdem sıe eingetippt wurden. 
Diese Eigenschaft besitzen Sprachen wie 
BASIC, LOGO, APL und PROLOG, nıcht aber 
Sprachen wie PASCAL, ALGOL, FORTRAN 
oder COBOL. Auch dıe Kommandointerpreter 
von Betnebssystemen wie CP/M oder UNIX 
besitzen dıese Eigenschaft. 

® Zweitens muß sie erweiterbar sein. Das Ein- 
gabeformat für eingebaute Befehle muß das- 
selbe sein wıe für selbstdefinierte Befehle. 
Nachdem wır einige Erweiterungen durchge- 
führt haben, können Sie so arbeiten, als hätten 
Sie es mit einer erweiterten, leistungsfähige- 
ren Sprache, und nicht mit der um einige zu- 
sätzlıche Routinen erweiterte Originalsprache 
zu tun. Das ıst ın LOGO oder den erwahnten 
Betriebssystemen möglıch, aber nıcht ın den 
meisten anderen Sprachen. 

Das Konzept der Erweiterbarkeit ıst aller- 
dings noch wesentlich leistungsfähiger. Wenn 
uns jemand eıne Teleskop-Steuerungssprache 
verkauft und wir sie um eınıge nützlıche Routi- 
nen für unser eigenes Teleskop ergänzen, so 
haben wir dıe ursprüngliche „allgemein eın- 
setzbare Teleskop-Steuerungssprache" zu 
einer „persönlichen Teleskop-Steuerungsspra- 
che" erweitert. 

Soll aber eine Erweiterung In vollem Umfang 
durchgeführt werden, so sollten wır mit einer 
„allgemein einsetzbaren erweiterbaren Com- 
putersprache" beginnen und diese zu einer 
„allgemein eınsetzbaren erweiterbaren Tele- 
skop-Steuerungssprache" erweitern können. 
Auf dıese Art können nicht nur Teleskope, son- 
dern auch Roboter, wıssenschaftliche Exper- 
mentiergeräte, Produktionsanlagen, — kurz al- 
les das, was sıch an einen Computer anschlıe- 
Ben läßt, gesteuert und kontrolliert werden. 


FORTH-Dialekte 


Von FORTH gibt es im wesentlichen drei Dia- 
lekte. Da wäre einmal das FIG (Forth Interest 
Group) FORTH, FORTH-79 und FORTH-8&. 
Die meisten FORTH-Versionen beziehen sich 
auf einen dieser drei „Standards“. 

FORTH-79 und FORTH-8 sind aufeinander- 
folgende Standards und definieren nur den 
grundlegenden Befehlssatz. Jede einzelne 
FORTH-Version wird sicher einen größeren 
Befehlssatz zur Verfügung stellen, der spe- 
zielle Eigenschaften des Computers (wie 
etwa Sound oder Grafik) unterstützt. Wenn 
Sie ein Programm schreiben, das sich strikt 
an den FORTH-83-Standard hält, so sollte es 
auf allen FORTH-83-Implementationen laufen. 
FORTH-83 ist der aktuelle Standard, und wir 
werden uns daran halten. FORTH-79 bietet 
zusätzlich eine Reihe von Befehlen, die die 
Implementierung des jeweiligen FORTH- 
Systems unterstützen. Viele FORTH-79- und 
FORTH-83-Implementationen gehen auf FIG- 
Forth zurück und werden erweitert, um dem 
jeweiligen Standard zu entsprechen. 


Das Teleskop 
und die Turtle 


Es lohnt sich, einen Vergleich zwischen 
LOGO und FORTH durchzuführen, da sich die 
beiden Sprachen sehr ähnlich sind. Beide 
wurden ursprünglich zur Kontrolle und Steue- 
rung eines physikalischen Objekts entwickelt, 
eines Teleskops bzw. einer Schildkröte. 


Beide Sprachen haben zwei wesentliche 
übereinstimmende AÄrbeitsprinzipien: Eine 
auszuführende Routine wird einfach durch 
ihren Namen aufgerufen, und neue Routinen 
werden auf bereits existierenden Routinen 
aufgebaut. Der eigentliche Unterschied liegt 
eher in den verschiedenen Erwartungen ihrer 
Benutzer. FORTH-Anwender erwarten eine 
hohe Arbeitsgeschwindigkeit (deshalb ist 
FORTH nicht nur interaktiv und erweiterbar, 
sondern auch sehr effizient) und nehmen da- 
für einige Unbequemlichkeiten in Kauf. LOGO 
dagegen ist konzipiert worden, um Kindern 
das Programmieren beizubringen. Es ist ein- 
fach zu erlernen und erlaubt daher keine Un- 
bequemlichkeiten. Die Folge ist, daß LOGO 
wesentlich langsamer arbeitet. FORTH hat 
standardmäßig keine „Turtle-Grafik“ einge- 
baut, verfügt aber über Möglichkeiten, den 
Grafik-Bildschirm zu steuern. Diese elementa- 
ren Befehle können Sie dazu verwenden, die 
LOGO-Befehle „FORWARD, RIGHT“ usw. zu 
definieren. Vergleichen Sie die beiden Mög- 
lichkeiten, die Turtle zu steuern: 

LOGO FORTH 

FORWARD 100 100 FORWARD 
Bei diesem Beispiel könnte man den Ein- 
druck gewinnen, FORTH würde sozusagen 
rückwärts arbeiten. Parameter in einer 
FORTH-Routine müssen zuerst berechnet und 
deshalb vor dem Namen der Routine einge- 
geben werden. Dieses Prinzip könnte man als 
„Rezeptbuch-Technik“ beschreiben. Zuerst 
werden die Zutaten in bestimmten Mengen 
zusammengegeben und dann gegart. 

Weitere Übereinstimmungen mit LOGO fin- 
den Sie bei der Definition neuer Routinen: 


TO...END e..: 
und bei der Schleifenkonstruktion: 
REPEATA4[....] 40 DO....LOOP 


Hier ein Beispiel, wie wir beides zu einer 
Routine kombinieren können, die ein Quadrat 
auf dem Bildschirm zeichnet. 


TO QUADRAT SEITE 
REPEAT4[ 
FORWARD SEITE DUP FORWARD 
RIGHT 90 RIGHT 
] LOOP 
DROP 


: QUADRAT 
40 DO 


END 
QUADRAT 100 100 QUADRAT 
DUP und DROP sind „Stackmanipulationen“, 
die den Routinen ermöglichen, auf die Para- 
meter der QUADRAT-Routine zuzugreifen. 
DUP kopiert die Zahl für die FORWARD- 
Routine, DROP löscht die Zahl. 


Es existiert mittler- 
weile für fast jeden 
Heimcomputer eine 
FORTH-Implementa- 
tion. FORTH lebt wie 
wohl kaum eine an- 
dere Computerspra- 
che von ihren Än- 
wendern. Die Ver- 
breitung von FORTH 
und die Unterstüt- 
zung seiner Änwen- 
der ist auch das Ziel 
der als Verein arbei- 
tenden FORTH Inter- 
est Group. In 
Deutschland hat 
diese Aufgabe die 
FORTH-Gesellschaft 
übernommen: 
FORTH GESELL- 
SCHAFT 
DEUTSCHLAND e.V., 
Schanzenstr. 27, 
2000 Hamburg 6. 
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Geflügelte Worte 
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Programme in FORTH werden aus „Wörtern“ aufgebaut, die der 
Programmierer selbst definieren kann. Die Wörter sind als 
Symbolgruppen definiert, die durch Leerzeichen voneinander getrennt 
werden. Wir untersuchen das „Vokabular“ der Sprache, sehen uns an, 
wie FORTH Befehle, Konstanten und Variablen definiert. 


D- Programmiersprache FORTH legt für 
Ihre Befehle ein „Vokabular" an, das wie 
ein Wörterbuch eıne Anzahl Wörter mit den zu- 
gehörngen Definitionen enthält. Die Wörter sınd 
nicht alphabetisch gespeichert, sondern In der 
Reihenfolge, ın der sıe definiet wurden. Beim 
Aufruf eines Wortes teılt dıe Definition dem 
Computer mit, welche Abläufe er ausführen 
soll. Wörter können dabei entweder direkt eın- 
gegeben werden oder Bestandteil der Definı- 
tıon eines anderen Wortes seın. 

FORTH interpretiert alles — Programme wie 
Daten - als Wörter. Die einzige Ausnahme sınd 
Zahlen. Wörter lassen sıch als Routinen (mit 
den Parametern Doppelpunkt und Semikolon), 
Vanablen oder Konstanten definieren. Die Defi- 
nitionen müssen aber ın Jedem Fallım Vokabu- 
lar eingetragen seın. 

Auch die ins System eingebauten Befehle 
sınd Wörter. So stellt beispielsweise der Befehl 
WORDS (manche Systeme verwenden VLIST — 
die Kurzform für VokabularLISTe) eine Wörter- 
liste des Vokabulars dar, ın der der Befehl 
WORDS selbst als Eintrag auftaucht. Befehle 
von erweiterten FORTH-Versionen sind eben- 
falls Wörter — Beispiele dafür sınd GRAD und 
ELEVATION des Telescope-FORTH und FOR- 
WARD und RIGHT des Turtle-FORTH. 

Vom Anwender definierte Befehle beginnen 
Immer mit einem Doppelpunkt und enden mit 
dem Semikolon: 


Die Zahlen 


Vor der Definition 
0 CONSTANT O0 


war 0 eine Zahl, die durch Regel 2 erkannt 
wurde. Nach der Definition ist sie ein Voka- 
bulareintrag, der von Regel | erkannt wird, 
bevor Regel 2 überhaupt zur Änwendung 
kommt. Da die Zahlen 0, ] und 2 oft vorkom- 
men, werden sie von figFORTH im Vokabular 
definiert. 
Es ist aber auch die Definition 

12 CONSTANT 13 


möglich, bei der Sie jedesmal, wenn Sie 13 
eingeben, die Zahl 12 erhalten. (Durch die 
Eingabe von 013 wird jedoch der korrekte 
Wert [13] ausgegeben.) 


:PARK 0 GRAD AZIMUT 90 GRAD ELEVA- 
TION; 


Dabeı kommt zuerst der (:), dann das definierte 
Wort, danach die Definition und schließlich eın 
(;). Die einzelnen Komponenten der Definitio- 
nen müssen durch Leerzeichen getrennt wer- 
den. Definitionen lassen sıch aber auch auf 
mehrere Zeilen aufteilen. Sıe werden dadurch 
übersichtlicher: 

:PARK 

0 GRAD AZIMUT 

90 GRAD ELEVATION 


Selbst die Programme werden als Wörter be- 
zeichnet. Wenn Definitionen aus einer einzigen 
langen Befehlskette bestehen — beiıspiels- 
weıse mıt dem Namen RUN -— dann können Sıe 
RUN als Programm ansehen, das andere Wörter 
als Subroutinen verwendet. Dabeı können 
durchaus weitere Befehle/Programme ım Vo- 
kabular eingetragen sein. Subroutinen sınd 
Wörter, die ın anderen Definitionen eingesetzt 
werden. 

FORTH unterscheidet nıcht zwischen Befeh- 
len, Programmen und Subroutinen. Alle sınd mit 
(:) und (;) definiert und können direkt (über dıe 
Tastatur) oder indirekt (von einer anderen Defi- 
nition) aufgerufen werden. Da diesen Definitio- 
nen ein Doppelpunkt (englisch: Colon) voran- 
steht, werden sie „Colon-Definitionen“ genannt. 

Variablen sınd ebenfalls Wörter. Die Variable 
LAENGE wırd zum Beispiel so definiert: 

VARIABLE LAENGE 


Bei dieser Definition wird dem Wort LAENGE ım 
Vokabular zusätzlicher Speicherplatz für einen 
Wert zur Verfügung gestellt. Vanablen müssen 
deklariert werden, bevor sie eingesetzt werden 
können, da sıe ohne Vokabulareintrag nicht als 
Variablen erkannt werden. Die Zeichen @ („ho- 
len") und ! („speichern“) werden ın Verbindung 
mit Varıablen eingesetzt. 
LAENGE @ 


ergibt den Wert von LAENGE und 
26 LAENGE |! 


setzt den Wert von LAENGE auf 26 (in BASIC 
ıdentisch mit: LETLAENGE = 26). 


Das @ ıst unbedingt notwendig, wenn Sıe den 
Wert eıner Varlablen abfragen möchten. Ohne 
das @ erhalten Sıe lediglich dıe Adresse der 
Variablen. 

Konstante sind ebenfalls Wörter. Wenn eın 
Wert häufig ın einem bestimmten Zusammen- 
hang verwendet wırd, sollten Sıe ıhn als Kon- 


stante definieren, zum Beispiel: 
66 CONSTANT KLICKKLICK 


Das Wort KLICKKLICK hat nun die Bedeutung 
66. Sıe können natürlich auch eine Variable ver- 
wenden, doch lassen sıch Konstante ohne @ 
einsetzen. Allerdings funktioniert der Speicher- 
befehl (!) nıcht mit Konstanten. 

Deklarationen mit VARIABLE und CON- 
STANT dürfen nıcht innerhalb eıner Colon-Defi- 
nition eingesetzt werden. Der Grund dafür liegt 
in der Art, wie Definitionen ım Vokabular ge- 
speichert sınd. Zwar wäre es praktisch, 

:INITIALISIERE 

VARIABLE PUNKTE O0 PUNKTE | 

VARIABLE SPIELE O SPIELE |! 


definieren zu können, doch es funktioniıet leider 
nıcht.-Wie in BASIC sınd alle Varlablen „global". 
Lokale Variable wie in PASCAL gibt es ın 
FORTH nieht. 

FORTH arbeıtet mit +, —, *, / und vıelen an- 
deren arithmetischen Operatoren, die wie alle 
Wörter mit Leerzeichen von anderen getrennt 
sein müssen. Die Argumente werden jeweils 
vorangestellt. Statt 2+ 3 wird 

3 


geschrieben. In der nächsten Folge werden wır 
darauf noch ausführlicher eingehen. 

Der Doppelpunkt, VARIABLE und CON- 
STANT werden „Definitionswörter" genannt, da 
sie Definitionen ım Vokabular anlegen und so- 
mit eine Sonderfunktion ausführen. Sıe bleiben 
aber Wörter des Vokabulars. Es ıst möglıch, 
neue Definitionswörter anzulegen. 

Unter den Symbolen für die Programmstruk- 
tur gibt es DO und LOOP (entspricht etwa dem 
FOR...NEXT ın BASIC), das (;) als Abschluß 
einer Colon-Definition und andere Strukturen 
wie IF ..THEN und BEGIN.. .UNTIL, die für Ver- 
zweigungen und Schleifen eingesetzt werden. 
Auch hier ist es möglich, eigene Programm- 
strukturwörter zu definieren. 

Wie behandelt FORTH nun Eingaben? Sym- 
bolgruppen ohne Leerzeichen werden als Wör- 
ter interpretiert und nach den folgenden dreı 
Regeln bearbeitet: 

1) Wenn FORTH das Wort ım Vokabular findet, 
führt es dıe entsprechende Definition aus. 
Kommt das Wort mehrfach vor, wırd die zuletzt 
eingegebene Definition eingesetzt. 

2) Steht das Wort nıchtim Vokabular, dann prüft 
FORTH, ob das Symbol (oder dıe Symbol- 
gruppe) eine Zahl ıst. Ist dies der Fall, legt es 
die Zahlen auf dem „Stapel" ab. 


Die Leerzeichen 


Da Wörter aus Zeichenfolgen bestehen, sieht 
FORTH die folgenden Ängaben als Wörter an 
(die jedoch nicht im Vokabular definiert sein 
müssen): 


KARTOFFEL 
ersehnterLottogewinn 
239 

pH 

25DM 

- 

"achtung” 
‚'XXX)hallo-dortQOWERTZ 


Außer beim Leerzeichen versucht FORTH nicht, 
den Zeichen eine bestimmte Bedeutung zuzu- 
ordnen. Sie werden vermutlich Wörter wie LA- 
ENGE und PUNKTE für Ihre Vanablen einset- 
zen, doch FORTH würde auch 23PI/2 oder 
1BIS10 akzeptieren. 

In vielen Sprachen müssen Vanablennamen 
mit einem Buchstaben anfangen und dürfen da- 
nach nur aus Buchstaben und Zahlen bestehen. 
Ursache dafür ist die Interpretation des Leerzei- 
chens. Die meisten Sprachen sehen Leerzei- 
chen lediglich als „Dekoration“ an, durch die 
Programme übersichtlicher werden. Da sie pro- 
blemlos weggelassen werden können, enthal- 
ten mathematische Ausdrücke wie 2+3 in BA- 
SIC selten zusätzliche Leerzeichen. 

Die Sprachen müssen daher andere Möglich- 
keiten haben, zwischen den verschiedenen 
Komponenten eines Programms unterscheiden 
zu können. Wenn Sie in BASIC eine Variable 
2+3 nennen würden, weiß der Interpreter nicht, 
ob Sie die Variable oder einen mathematischen 
Ausdruck meinen. Um diese Mehrdeutigkeit 
auszuschließen, werden Variablennamen Ein- 
schränkungen unterworfen. 

FORTH löst dieses Problem auf andere 
Weise. Da das Leerzeichen kompromißlos als 
Trennelement zwischen Wörtern eingesetzt 
wird, sind keine weiteren Regeln nötig. 


FORTH erkennt die 
Zahl 2 und schiebt sie 


sofort auf den Stapel... 


Die Zahl 3 wird über 
die Zahl 2 auf den Sta- 
pel geschoben... 


Wenn FORTH auf das 
Wort + trifft, führt es 
entsprechend die im 


0©-— Vokabular gespeicherte 
Definition aus. Das Wort 
erwartet zwei Parame- 
ter, die vom Stapel ge- 
zogen und danach ad- 
diert werden... 


Der Vorgang ist been- 
det, und das Ergebnis 


wird zur weiteren Bear- 
beitung auf den Stapel 


geschoben. 


1 


FORTH-Dialekte 
In figFORTH muß der 
Wert einer Variablen je- 
weils vor der Variablen 
stehen. 
10 VARIABLE 
BLUMENVASEN 
In diesem Beispiel ist 


Wenn FORTH auf ein 
Wort trifft, führt es den 
Vorgang aus, der unter 
diesem Wort im Voka- 
bular gespeichert ist. 
Trifft es jedoch auf eine 
Zahl, dann speichert 
FORTH diese in einem 
Bereich, der „Stapel“ 
genannt wird. Dort 
bleibt die Zahl, bis 
FORTH sich wieder 
daran „erinnern“ muß - 
beispielsweise bei der 
Ausführung eines wei- 
teren Befehls. Unser 
Bild zeigt, wie FORTH 
die Eingabe 2 3 + inter- 
pretiert. 
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Die Definition des 
Wortes QUADRAT 
zeigt nur einen der 
vielen Aspekte, die 
die Flexibilität von 
FORTH bietet. Es ist 
nicht nur möglich, 
„Vokabulare“ anzu- 
legen, die mechani- 
sche Geräte wie das 
im Bild gezeigte Te- 
leskop steuern, es 
lassen sich auch Sy- 
steme für abstrakte 
Anwendungen damit 
erstellen. So setzt 
beispielsweise das 
britische Software- 
haus Mastertronics 
FORTH für die Ent- 
wicklung von Äben- 
teuerspielen ein. 


3) Ist die Symbolgruppe weder eine Zahl, noch 
ein im Vokabular eingetragenes Wort, gıbt 
FORTH eine Fehlermeldung aus. 

Beı Colon-Definitionen sind diese Regeln et- 
was geändert, da die entsprechenden Vor- 
gänge nicht direkt ausgeführt werden können. 
Wörter wıe (:), VARIABLE und CONSTANT sınd 
daher Ausnahmen. Die Schreibweise 

VARIABLE PUNKTE 


würde gemäß Regel 3eınen Fehler erzeugen. 
VARIABLE behandelt PUNKTE jedoch auf eı- 
gene Weise und umgeht so die drei Regeln. 
Wenn dies nicht der Fall wäre, ließen sich keine 
Wörter ın das Vokabular eintragen. 

Durch das Vokabular erhält FORTH eine breit 
angelegte, Interaktive Flexibilität. Die drei Re- 
geln stellen sicher, daß neue Definitionen mit 
den alten Definitionen gleichgestellt sınd. 


Zurück zum Ursprung 


Mit ein wenig Erfahrung in der Maschinen- 
codeprogrammierung ist FORTH leicht zu 
verstehen. Für Anfänger ohne diese Kennt- 
nisse können die ersten Programmierversu- 
che oft sehr frustrierend sein. 


Bei der Definition des Wortes QUADRAT, 
das als Subroutine auf dem Bildschirm ein 
Quadrat mit der Seitenlänge SEITE zeichnet, 
gehen wir folgendermaßen vor. Zunächst de- 
finieren wir die Variable SEITE: 


VARIABLE SEITE 


FORTH wird dabei angewiesen, Platz zu re- 
servieren, an dem der numerische Wert ge- 
speichert werden kann. Mit @ (holen) können 
wir von dieser Ädresse Werte abrufen und 
mit ! (speichem) dort ablegen. 


20 SEITE ! 


ordnet der Vanablen SEITE den Wert 20 zu. 

Wir können das neue Wort QUADRAT nun 
mit den „Wörtern“ : und ; (ähnlich wie TO 
und END in LOGO) definieren: 


:QUADRAT 
SEITE ! 
40 DO 
SEITE @ FORWARD 
90 RIGHT 
LOOP 


Diese Prozedur setzt voraus, daß die Wörter 
RIGHT und FORWARD bereits definiert wur- 
den, bei denen beispielsweise die Funktion 


50 FORWARD 


die Turtle 50 Bildschirmpunkte vorwärts be- 
wegt. 

Weiterhin muß der Änwender den Wert für 
SEITE eingeben, so daß 


50 QUADRAT 


ein Quadrat mit der Seitenlänge von SO Bild- 
schirmpunkten zeichnet. 


Sehen wir uns einmal an, wie die Subrou- 
tine arbeitet, wenn wir 50 QUADRAT einge- 
ben. FORTH untersucht zunächst die Eingabe 
und stellt fest, daß die erste Symbolgnuppe 
(50) durch ein Leerzeichen von der nächsten 
(QUADRAT) getrennt ist. FORTH überprüft 
nun, ob diese Gruppe im Vokabular eingetra- 
gen ist. Wenn Sie die Zeichengruppe SO zuvor 
nicht als Wort definiert haben, prüft FORTH, 
ob es sich um eine Zahl handelt. Da dies der 
Fall ist, legt FORTH die Zahl im Speicher ab 
und untersucht die nächste Symbolgruppe — 
QUADRAT 


QUADRAT ist natürlich im Vokabular vor- 
handen (wir haben sie gerade definiert). 
FORTH nuft nun die Definition auf. Dabei trifft 
es als erstes auf den Ausdruck SEITE |. Da 
SEITE ! an dieser Stelle kein Wert zugewiesen 
wurde, prüft FORTH seinen Speicher und fin- 
det dort den von uns eingegebenen Wert (50), 
den es der Variablen SEITE nun zuordnet. 


Im Gegensatz zu Logo überprüft FORTH an 
dieser Stelle nicht, ob dies der nchtige Wert 
ist, sondern nimmt an, daß wir die Zahl an der 
korrekten Stelle eingegeben haben. Wenn 
wir statt 50 QUADRAT nur QUADRAT ange- 
ben, erhalten wir keine Fehlermeldung. 


40. DO...LOOP erklärt sich eigentlich von 
selbst. Interessant ist hierbei, daß die Varia- 
ble SEITE im Inneren der Schleife durch die 
Wörter SEITE @ FORWARD an die Subrou- 
tine FORWARD übergeben wird. Die Subrou- 
tine ruft dabei zunächst die Ädıesse von 
SEITE auf und holt sich dann (mit @) den 
Wert dieser Adresse. 90 RIGHT ist notwendig, 
um die Turtle nach Abschluß einer Seite um 
90 Grad zu drehen und das Quadrat zu ver- 
vollständigen. 


Er - : u 


Gesteuerter Stapel 


Es ist nicht immer möglich, den Stapel so aufzu- 
bauen, daß alle Zahlen in der richtigen Reihen- 
folge stehen. FORTH bietet daher eine Reihe von 
Wörtern, die die Werte des Stapels umstellen. 
Hier ein paar Beispiele: 


e DROP 


e DUP 


« SWAP 


eROT 


@ 0VER 


@ PICK 


® ROLL 


X 


(löscht den obersten Stapel- 


wert) 


x—-—X,X 
(dupliziert den obersten 
Stapelwert) 


X, Y--Y, X 


(tauscht die beiden obersten 


Stapelelemente gegenein- 
ander aus) 


Xuya2u = 


y, 2, X 
(rotiert die ersten drei Stapel- 


elemente, so daß die zu- 


Y 


N 


unterst liegende Zahl oben liegt) 


XK,Y-—-xXy,X 
(kopiert die zweitunterste 
Nummer und legt sie oben 
auf den Stapel) 


A, 


es 


br 
% 


2” 
/ 
vn 


xn,...x2,x1,x0,n-—xn,..,x2 x], x0, 


xn 


(wie OVER Sie müssen jedoch eine 

zusätzliche Zahl (n) angeben, die be- 
sagt, welche Zahl kopiert werden soll. 
1 PICK entspricht beispielsweise 
OVER, 2 PICK kopiert die drittunter- 
ste Zahl, während 0 PICK wie DUP 


arbeitet) 


xn..„x2A xl,x0,n--..,„x2x1l,x0,xn 
(wie ROT, aber mit einer zusätzlichen 

Zahl wie PICK. 2 ROLL entspricht 
ROT, während 3 ROLL vier Zahlen ro- 


tiert. 1 ROLL entspricht SWAP). 


In FigFORTH fehlen PICK und ROLL. In FORTH- 

79 sind sie enthalten, doch spricht die Zusatzzahl 
einen um Eins höheren Wert an, als in FORTH-82. 
In FORTH-79 entspricht 3 ROLL daher ROT. 
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Rechnen mit UPN: 
2+3 gleich 23+ 


In dieser Folge untersuchen wir 
die Logik der „Umgekehrten 
Polnischen Notation“ (UPN) und 
wollen zeigen, wie diese Schreib- 
weise mathematische Abläufe und 
die Bearbeitung von Daten 
vereinfacht. 


F ist selbstverständlich, daß wir die Summe 
zweier Zahlen nur erhalten können, wenn 
wir beide Zahlen kennen. Bei der Eingabe von 
2+3 (das "+" steht in der Mitte), wartet eın 
Computer daher erst auf die zweite Zahl, bevor 
er sıch mit dem + beschäftigt. Die Maschine 
versteht dıe Aufgabe als 23 +. 

Wır sınd daran gewöhnt, mathematische 
Operatoren wie +, —, * und / ın der Mitte („In- 
fix Notation") zu schreiben (zum Beispiel 2+2). 
Die Schreibweise entspricht der Umgangs- 
sprache (zwei plus zwei ergibt vier) und trennt 
die beiden Operanden deutlich voneinander. 

Die Infıx Notation bringt bei Spracherweite- 
rungen Jedoch große Nachteile. Zunächst muß 
der Operator exakt zwei Operanden (Ärgu- 
mente oder Parameter) haben — auf jeder 
Seite einen. Werden mehrere Operanden ge- 
braucht, muß eıne funktionelle Schreibweise 
wie FNf(a, b, c, d, e) verwandt werden. Weiter- 
hin sınd Ausdrücke wie 2+3*5 nıcht eindeutig: 
Wird hier das + zuerst ausgeführt, oder das *? 
Das Problem laßt sich nur durch zusätzliche 
Regeln lösen, dıe beispielsweise besagen, 
daß * eine höhere Pnorität hat als +. Wenn Sie 
bei der Infıx Notation neue Operatoren eınfüh- 
ren wollen, müssen Sie daher auch die Regeln 
erweitern. 

FORTH bietet hier eine Lösung, die den Fä- 
higkeiten des Computers am besten ent- 
spricht: Bei allen Operatoren oder Funktionen 
(also allen Wörtern) werden zuerst dıe Ope- 
randen geschrieben und dann das Wort (beı- 
spielsweise 2 3 +). Die Schreibweise funktio- 
niert wie ein Kochrezept: Zuerst holen Sıe alle 
Zutaten, und dann verarbeiten Sıe diese. Die 
technische Bezeichnung dieser Methode lau- 
tet „Umgekehrte Polnische Notation“ (UPN). In 
der Direkten Polnischen Notation steht der 
Operator vor den Operanden. LOGO verwen- 
det diese Schreibweise beı neuen Funktionen. 

Nehmen wir an, Sie haben einen Ausdruck 
mit Infix Notation wıe 2*3+8/4. Da nach den 
üblichen Pnioorıtätsregeln das + zuletzt ausge- 
führt wird, ist das Endergebnis dıe Summe von 
2*3 und 8/4. Für dıe UPN-Schreibweise wird 


der Ausdruck umgeformt: 
(2*3) (8/4) + 


Hier haben jedoch 2*3 und 8/4 noch die Infix 
Notation. Die zweite Umformung ergibt daher: 
2e3r84h+ 


Die UPN braucht keine Klammern, da sıe In Je- 
dem Fall eindeutig ıst. FORTH setzt Klammern 
außerdem nur für Kommentare eın. Hier das 
endgültige UPN-Format von 2%3+8/4: 

Ei BAr+ 


Bedenken Sıe, daß ın FORTH die Leerzeichen 
unbedingt notwendig sınd. 

Die Umgekehrte Polnische Notation kann 
also die beiden Probleme der Infıx Notation lö- 
sen: Beı der UPN sind pro Operator nıcht nur 
zweı Operanden möglıch, sondern mehrere 
(gefolgt von einem Operator). Beispielsweise 
hatın FORTH der Operator */ drei Operanden: 
Er multipliziert die ersten beiden und dividiert 
das Ergebnis durch den dritten Operanden. 

Das zweite Problem der Infıx Notation sind 
dıe Priorıtätsregeln und Klammern, durch die 
dıe Reihenfolge der Einzelberechnungen fest- 
gelegt wird. Die UPN kommt ohne Regeln und 
Klammern aus - sıe teılt dem Computer exakt 
mit, wie das Ergebnis berechnet wird. 


Ergebnis im Speicher 


Sehen wir uns an dem einfachen Beispiel 23 + 
einmal an, wie die UPN ausgeführt wird. 
FORTH trifft zuerst auf die 2 und speichert sıe. 
Danach findet es die 3, die ebenfalls gespei- 
chert wird. Bei + nımmt der Computer an, daß 
er sıch bereits zweı Zahlen „gemerkt" hat. Er 
findet sıe, addıert sie und legt das Ergebnis 
wieder im Speicher ab. Dort steht es für die 
weitere Bearbeitung zur Verfügung. 

In der letzten Folge erwähnten wır kurz, daß 
FORTH sıch an Zahlen „erinnert“, indem es 
diese auf den Stapel schiebt (nach der LIFO- 
Methode — Last In Fırst Out). Dieses Konzept 
ist Maschinencodeprogrammierern sıcherlich 
vertraut, doch kann es für Anfänger schon 
recht ungewohnt sein. Wır geben daher hier 
ein weiteres Beispiel. Stellen Sie sich einen 
Stapel Spielkarten vor. Um eine Nummer zu 
„speichern“, schreiben Sıe sıe auf eine neue 
Karte, dıe Sıe oben auf den Stapel legen. Für 
das + nehmen Sie die beiden obersten Karten 
herunter und addieren dıe beiden darauf no- 
tierten Zahlen, verändern jedoch nicht den 
Rest des Stapels. Der Kasten zeigt dıe Entwick- 
lung des Stapels beı der Bearbeitung von 2 —3 
* 84 /+((2* 3) + 87/ 4)). Beachten Sie, daß 
in Schritt 6 die Karte —6 von der Teilung 8 / 4 
nıcht berührt wird. 

Zwar zeigt dieser Äblauf, wie der Stapel mit 
Ganzzahlen funktioniert, in FORTH werden Va- 
rnablen jedoch als Adressen und nicht als 
Ganzzahlen behandelt. Die Adressen werden 


Von Oben nach Unten 


Hier ein weiteres Beispiel, wie bei der Ausführung von 
2-3*847/ + (Infix Notation: 2* —3 + 8/4) Zahlen auf den Stapel 
„geschoben" und „heruntergezogen“ werden. 


Schritt 1 


Die Zahl 2 wird zuoberst auf 
den Stapel gelegt... 


Schritt 2 


3 wird auf die 2 gelegt 


Schritt 3 
Das Wort * zieht die beiden 
Zahlen vom Stapel herunter, 
multipliziert sie und legt das 
Schritt 4 Ergebnis wieder auf den 


Stapel 


Nun wird 8 zuoberst auf den 
Stapel gelegt 


Schritt 5 


Schritt 6 


Stapel (-6 wird nicht ange- 
sprochen), verarbeitet sie 
und legt das Ergebnis wie- 


Schritt 7 der zuoberst auf den Stapel 


+ zieht nun die beiden ober- 
sten Zahlen vom Stapel, ad- 
diert sie und legt das Ergeb- 
nis wieder auf den Stapel. 


das / nimmt zwei Zahlen vom 


155/ 
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eingesetzt, um (mit @ dem Befehl für „holen') 
die Varlablenwete anzugeben oder (mit !, dem 
Befehl für „speichern“), um geänderte Werte 
auf die Adressen zu schreiben. 

Unser Beispiel zeigt deutlich, wie exakt die 
Umgekehrte Polnische Notation arbeitet. 
FORTH unterhält eine eigene Version eines 
„Kartenstapels", so daß der Computer bei jJe- 
dem Wort die entsprechenden Abläufe aus- 
führen kann, ohne sıch darum kümmern zu 
müssen, was zuvor oder danach passıert. 

Hier ein weiteres Beispiel für den Einsatz 
des Stapels: Das Wort 2* ersetzt den letzten 
Wert des Stapels durch den doppelten Wert 
dieser Zahl. Es ist folgendermaßen definiert: 

:2* (n —— n*?2) 

2 x 


Beachten Sıe, daß Klammern nur Kommentare 
umschließen. (Das Symbol —— wird ın dem ne- 
benstehenden Kasten erklärt.) Hıer eın Beı- 
spiel für das neue Wort 2*: 

192°, 


zeigt als Ergebnis 38. Das Symbol . ıst das 
FORTH-Wort für PRINT. Es nımmt den obersten 
Wert des Stapels und zeigt ıhn auf dem Bild- 
schirm an. Das *-Zeichen ın der Definition von 
2* erwartet mindestens zweı Zahlen. Die 
zweite Zahl ist dabei die ın der Definition ent- 
haltene 2, während sich die erste (in unserem 
Beispiel 19) bereits auf dem Stapel befinden 
muß, wenn 2* eingesetzt wird. 

Stapelvorgänge dieser Art haben den Vor- 
teil daß sie mehr als eın Ergebnis erzeugen 
können. So beläßt das Wort /MOD beispiels- 
weise zwei Werte auf dem Stapel: den „Quo- 
tienten“ (das Ergebnis) und den „Rest“ einer 
Division. Mit —— läßt sich dieser Vorgang aber 
auch folgendermaßen ausdrücken! 


m, n —— Rest, Quotient von m/n 


Bei der Infix Notation wäre dieser Vorgang 
nıcht möglich, bei der UPN ıst er normal. 

Die dırekte Programmierung Ist zwar eine 
der beeindruckendsten Eigenschaften von 
FORTH, kann aber auch Probleme verursa- 
chen. So stehen die Zahlen des Stapels zuwel- 
len nıcht ın der rıchtigen Reihenfolge und müs- 
sen umorganisiert werden. Der nebenste- 
hende Kasten enthält einige Standardwörter, 
die für diesen Zweck eingesetzt werden. Das 
nachfolgend definierte Wort */ ıst zwar nicht 
so gut wie dıe Standarddefinition (die auch die 
rıchtige Antwort bietet, selbst wenn das Ergeb- 
nis zu groß für den Stapel ıst), zeigt aber, wıe 
ROT und SWAP funktionieren: 

*/ (n,y,z——x"y/z) 

ROT ROT * 
SWAP / 


Hier der Ablauf am Beispiel von 436 */: 


Vorgang */ 


Am Anfang von */ 
ROT 
ROT 
% 
SWAP 
2 


Stapel (oben - unten) 


Normalerweise werden die Befehle zur Stapel- 
manipulation Jedoch nur ım Inneren von Wort- 
definitionen eingesetzt. 


Vorsicht 


Sie müssen sorgfältig darauf achten, genau 
die Anzahl an Werten auf den Stapel zu 
schieben, die das Wort benötigt. Wenn Sie zu 
wenig anlegen, setzt das Programm selbstän- 
dig Werte ein. Wurden zu viele eingesetzt, 
dann stimmt das Ergebnis ebenfalls nicht. 

Für die genaue Wort-Definition können Sie 
die Schreibweise "—-—” einsetzen. Dabei wird 
die Liste der Werte, die ein Wort braucht, 
durch "--" von den Werten getrennt, die es 
auf dem Stapel zurückläßt. Hier einige 
Beispiele: 


Wort: Auswirkung: 
= mn — men 


m —— 
u x, y, z-—x"y/z 


Die Schreibweise ”—-—" ist kein Bestandteil 
von FOÖRTH, sondern soll nur die Schreib- 
weise übersichtlicher machen. Bei der Ver- 
wendung von Klammern sollten Sie beachten, 
daß nach der ersten Klammer ein Leerzei- 
chen stehen muß. Die Klammer ist ein Wort, 
das besagt: Ignoriere von hier an alles, bis 
eine geschlossene Klammer auftaucht. 


Abfrage des Stapels 


Ein sehr praktisches Wort ist .S, das den 
Stapelinhalt anzeigt. Es ist im Standard- 
FORTH zwar nicht enthalten, in FORTH-83 
aber definiert als: 
ı,5 (——.) 
(zeigt den Stapel von unten nach oben 
an) 
0 DEPTH 1 — DO 
I PICK. 
= + kK00r 


In FORTH-79 funktioniert PICK anders. Die 
dritte Zeile muß dann lauten 

1 DEPTH DO 
DEPTH ( -- Stapeltiefe) informiert Sie dar- 
über, wie viele Zahlen auf dem Stapel abge- 
legt waren, bevor Sie DEPTH aufgerufen 
haben. Da FigFORTH jedoch weder über 
DEPTH noch über PICK verfügt, funktionieren 
diese Definitionen dort natürlich nicht. 
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Zwei Bedingungen 


In unserer FORTH-Serie haben wir bisher einfache, gradlinige 
Routinen behandelt, aber keine Strukturen, mit denen sich der 
Programmfluß steuern ließe. In dieser Folge sehen wir uns mehrere 
dieser Strukturen an, darunter IF...THEN...ELSE und die DO-Schleife. 


W: Jede andere Programmiersprache be- 
sitzt auch FORTH eıne ganze Reihe 
Strukturen, die den Programmfluß steuern. 
Wenn Sie Sprachen wie PASCAL, C oder die 
hochentwickelten BASICs bereits kennen, wer- 
den Sıe dıe folgenden Abläufe leicht verste- 
hen. Durch die Mechanik des FORTH-Stapels 
sehen die Strukturen jedoch vielfach „seiten- 
verkehrt" aus. 

Steuerstrukturen können ın FORTH nur ın- 
nerhalb von Colon-Definitionen eingesetzt 
werden, da die Verzweigungsbefehle erst ın 
bedingte und absolute Sprünge compiliert 
werden müssen. Dieser Vorgang bräuchte 
aber viel Zeit, dıe dann während der Pro- 
grammausführung nicht zur Verfügung stehen 
würde. Deshalb optimiert FORTH die Abläufe 
schon beim Eintrag ins Vokabular. 


Hier dıe Abläufe des Standard-FORTH: 
® Bedingung IF Anweisung wahr ELSE 
Anweisung falsch THEN 


IF...THEN.. .ELSE 
Ä Testet den obersten Sta- 
; pelwert auf 0 (falsch) 
Bedingung - oder nicht-Null (wahr)... 


Wenn dıe Bedingung „wahr“ ıst, wird „Änwel- 
sung wahr" ausgeführt. Ist sie „falsch", die „An- 
weısung falsch“. Wie in den meisten Compu- 
tersprachen kann der ELSE-Teil und die „Än- 
weisung falsch" auch weggelassen werden. In 
diesem Fall geht FORTH sofort auf die Anwei- 
sung hinter THEN über, wenn die Bedingung 
„falsch“ ergibt. 

Die Bedingung und die beiden Änweisun- 
gen (wahr und falsch) können beliebig viele 
Forth-Wörter sein, sogar andere IF.. .THEN... 


ELSE sind möglich. Die Bedingung wird dabei 
auf den Stapel geschoben und von IF wieder 
heruntergezogen. Hier ein Beispiel, wie ange- 
zeigt wird, ob eine Zahl des Stapels gerade 
oder ungerade ist: 


:PARITAET  (n--) 
( zeigt an, ob n "gerade" oder 
"ungerade" ist) 
Bid]z ( zeigt n an) 
A 
2 MOD O=IF 
.. gerade” 
ELSE 
. ungerade” 
THEN 


MOD liefert bei der Teilung der ersten Zahl 
durch die zweite den Rest. 


® BEGIN... .UNTIL 

führt eine Schleife aus, solange die Bedingung 
wahr ist. Die meisten modernen Computer und 
auch die neueren BASIC-Dialekte verfügen 
über eine ähnlıche Struktur. 

BEGIN Anweisung Bedingung UNTIL 

Es werden die Schleife und die Bedingung 
ausgeführt. Die Bedingung ist das Ende des 
schleifenteils und beläßt einen Wert auf dem 
Stapel, mit dem UNTIL weiterarbeiten kann. 
Der Schleifenteil muß daher mindestens ein- 
mal ausgeführt werden: 


BEGIN. . .UNTIL 
BEGIN...UNTIL wird 
mindestens einmal 
ausgeführt. 


” ERRRRRRET 
u 


HOCH (--) 
( zeigt alle Quadratzahlen von 
2 an, die unter 10000 lıegen) 
l ( Erste Hochzahl für 2) 
BEGIN 
CR DUP.( Quadratzahl auf eine neue 
Zeile setzen) 
2* (nächste Quadratzahl von 2 holen) 
DUP 1000 > UNTIL (testen, ob dıe Zahl 
schon zu groß? ıst) 
DROP ( letzte Quadratzahl nicht anzeigen) 


© BEGIN. . .WHILE. . .REPEAT 


WHILE ıst flexibler als UNTIL, da Sıe Im Inne- 
ren des Schleifenteils entscheiden können, ob 
die Schleife beendet werden soll, und Sıe nıcht 
erst das Ende abwarten müssen. 
BEGIN 1. Schleife Bedingung WHILE 2. Schleife 
REPEAT 


BEGIN. . WHILE... 
REPEAT 
" Die erste Anweisung 
" von BEGIN.. .WHILE 
 ...REPEAT wird 
mindestens einmal 
„ ausgeführt. Die zweite 
Anweisung dagegen 
Anweisung » braucht unter 
——ä UÜTständen überhaupt 
nicht angesprochen 


" zu werden. 
Bedingung x 


falsch 


- 
i 
| 
| 
| 
| 
| 
M 
| 


KARA R 


MT 
EA A N, | 


ERBEN 


Wie ın UNTIL wırd auch hıer die I. Schleife zu- 
mindest einmal ausgeführt und dıe Bedingung 
abgefragt. An dieser Stelle gıbt es Jedoch zweı 
wesentliche Unterschiede zu UNTIL. Wenn dıe 
Bedingung „falsch“ ergibt, wird die 2. Schleife 
übersprungen und damit die Schleife beendet. 
Ergibt sie „wahr“, führt FORTH die 2. Schleife 
aus, bevor sıe wieder auf BEGIN springt. 


® DO... .LOOP 


BASIC FORTH 
FOR X=Anfang TO Ende (Ende+1) Anfang DO 
Schleifeninhalt Schleifeninhalt 


NEXT X LOOP 
FOR X=Anfang TO Ende 
SIEP ( Ende+1) Anfang DO 
Step 
Schleifeninhalt Schleifeninhalt 


NEXT X Step +LOOP 


Die DO-Schleife ın FORTH entspricht den 
FOR-Schleifen ın BASIC ubd vielen anderen 
Sprachen. Die oben angeführte tabellarısche 
Gegenüberstellung zeigt die auffälligen Unter- 
schiede zwischen FORTH und BASIC. 


DO. ..LOOP 
“ „Ende“ enthält den 
Zähler für das 
 Schleifenende und 
= „Anfang“ den An- 
_ fangswert des Zählers. 
" DO nimmt beide 
- Werte vom Stapel. 


- +LOOP ad- 
diert den 


ae DE EENNN NEN, 
- Wert von 
| —____ Eden Wert 


“ von Änfang 
„ und testet, 

' ob Anfang 

= Ende. 


| Anfang <> 
" Ende | 
2 


ee NG RE DT Er weni 


Zunächst steht der Anfangs- und Endwert vor 
dem DO, damit das DO sıe vom Stapel nehmen 
kann. Ende wırd deshalb auch zuerst aufge- 
führt. Es ist allerdings weniger deutlich, warum 
Ende um eıns größer seın muß als dıe Anzahl 
der Schleifendurchläufe. Die Ursache liegt 
darın, daß 4 OÖ DÖ dıe Schleife mit den Werten 
0, 1 2 und 3 (also Insgesamt viermal) durch- 
lauft, nıcht aber mit dem Wert 4. 

Wie ın BASIC ıst STEP möglıch. Wırd dıe An- 
gabe weggelassen, nimmt LOOP als STEP au- 
tomatisch 1 an. Wird STEP jedoch angegeben, 
muß +LOOP statt LOOP eıngesetzt werden, 


| Bedingungen 


Die folgenden Wörter eignen sich für den Einsatz 
mit IF, UNTIL und WHILE. Ihre Ergebnisse werden 
auf dem Stapel abgelegt und sind in FORTH-83 
entweder -] (wahr) oder 0 (falsch). Ältere FORTH- 
Versionen verwenden | für wahr und 0 für falsch. 

IF, UNTIL und WHILE benötigen nicht die 
Angaben 0, 1 oder -1. 0 zeigt einfach falsch an, 
während jede andere Zahl wahr ist. 


= m,n--wahr oder falsch (wahr IF m = n) 
< __m,n--wahr oder falsch (wahr IF m <n) 
> m,n--wahr oder falsch (wahr IF m > n) 
0= m,n--wahr oder falsch (wahr IF m = 0) 
0< m,n--wahr oder falsch (wahr IF m < 0) 
0>  m,n--wahr oder falsch (wahr IF m > 0) 
NOT wahr oder falsch--wahr oder falsch 
AND m,n--m AND n 

OR m,n--mORn 
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wobei STEP unmittelbar vor +LOOP steht. THEN 
In FORTH gibt es keine Steuervariable (wie THEN 
das X ın BASIC). Statt dessen schiebt das Wort 
I den Schleifenwert auf den Stapel. Wenn meh- 
rere DO-Schleifen ıneinander verschachtelt 
sind, bezieht sich Iımmer auf die innerste und 


Hier sind die Sonderfälle etwas kompliziert. Ist 


J] auf die nächstäußere. Auf diese Weise ist si- 
chergestellt, daß bei mehrfach verschachtelten 
Schleifen die entsprechenden Werte intakt 


sind und korrekt gezählt werden. 


Hier ein Programmebkeispiel, das eine Zahl 
mit einer anderen potenziert. Da FORTH ım 
Gegensatz zu BASIC keinen Standardoperator 
dieser Art besitzt, müssen Sıe ıhn selbst defi- 


nieren: 


#77 mn 
DUPO <IF(IFn<d ist das Ergebnis O) 
DROP DROP O 
EESE 
DUPO= IF ( IF n=0 ist das Ergebnis 1) 
DROPFDROP 
FESE 
1 ( multipliziert n mal mit m) 
SWAP 0 DO ( Schleife n mal durch- 
laufen) 
OVER * ( ersten Wert des Stapels 
mit m multiplizieren) 
EOOP 
SWAP DROP ( m löschen) 


Druckfunktion 


Strings im Inneren einer Colon-Definition lassen sich mit folgen- 
dem Format ausdrucken: . "String" 

Auf .” muß mindestens ein Leerzeichen folgen, da es ein Wort ist. 
Weitere Leerzeichen werden als Teil des String angesehen. 

Der String steht hinter dem .” (und folgt damit nicht der Umge- 
kehrten Polnischen Notation), da der Stapel keine Strings verarbei- 
ten kann. Für die Verarbeitung von Stringvariablen gibt es im Stan- 
dard-FORTH keine Abläufe. Sie können die Sprache jedoch leicht 
um diese Möglichkeit erweitern. 

Das Wort CR (Retum) spricht auf dem Bildschirm eine neue Zeile an. 


Grenzen von DO 


Obwohl das Grundkonzept von DO recht einfach ist, gibt es einige 
Merkwürdigkeiten: Wenn STEP (vor +LOOP) negativ ist, kann der 
Wert von LOOP bereits das Ende erreichen, ohne davor anzuhalten. 
20DO...-1 +LOOP durchläuft daher die Werte 0, -1 

und -2. 

Wir haben weiterhin gesehen, daß DO-Schleifen mindestens ein- 
mal ausgeführt werden, selbst 0 0 DO...LOOP. FORTH-83 hat hier 
eine Überraschung parat: Es führt diese Schleife 65,536 mal aus, -1 
0 DO...LOOP 65.535mal und -2 0 DO.. .LOOP 65.534mal etc. 

Hier wäre es am leichtesten, überhaupt nicht mit diesen Werten 
zu arbeiten. Wenn Sie jedoch wissen, wie der Computer Ganzzah- 
len mit und ohne Vorzeichen verarbeitet, wird Ihnen auch der 
Grund dafür deutlich sein. Sobald der Anfangswert hinter Ende 
liegt, läuft der Zähler bis 32768. Diese Zahl wird dann als -32768 an- 
gesehen und aufwärtsgezählt, bis Ende von unten her erreicht ist. 

Wenn bei älteren FORTH-Versionen der Änfangswert das Ende 
überschnitten hat, wird die Schleife nur einmal ausgeführt. Diese 
Versionen behandeln jedoch auch LEAVE geringfügig anders. Hier 
springt das Programm nicht aus der Schleife heraus, sondern stellt 
sicher, daß auch beim nächsten LOOP oder +LOOP ein Ausstieg 
möglich ist. 
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die Hochzahl negativ, dann ıst die korrekte 
Antwort 1 dividiert durch das potentierte Er- 
gebnis. Da FORTH nur mit Ganzzahlen arbeitet 
und sich mit diesem Programm die Teilung 
nicht exakt ausführen läßt, ist das Ergebnis je- 
doch 0. Der Fall n=0 ist subtiler. Wenn | null- 
mal mıt m multipliziert wird (die Schleife also 
nullmal durchläuft), sollte das Ergebnis 1 lau- 
ten. Da FORTH seine Schleifen Jedoch minde- 
stens einmal durchläuft, muß dieser Fall be- 
sonders berücksichtigt werden. In der Praxis 
gıbt es viele Situationen, ın denen die Ausfüh- 
rung einer DO-Schleife nıcht gewünscht wird 
und die abgefangen werden müssen. 

Hıer ein anschauliches Beispiel mit einer 
verbesserten Version von HOCH2. Dabei wird 
außer dem Schleifenwert I auch das Wort 
LEAVE eingesetzt, das die Schleife unterbricht 
und sofort auf die Anweisung hinter LOOP 
oder +LOOP springt: 


 H@CH2 (n--) 
( zeigt Exponenten und Potenzen 
von 2 an, solange die Potenzen 
kleiner als n sınd) 
150 DO (2 ** 14 ıst die größte Zahl, die sich 
anzeigen läßt) 
BUPZITT <IF (IF 2II >) 
LEAVE 
ERSE 
ER42U >" 
THEN 
(OOP 
DROP ( löscht n) 


Beı diesen Programmstrukturen kommen Sie 
ohne Zeilennummern und GOTO aus. Wenn 
sie an BÄSIC gewöhnt sınd, kann der Ablauf 
anfangs etwas ungewohnt sein. Zeilennum- 
mern sind jedoch nur eine Eigenschaft von BA- 
SIC und haben nur wenig mit der allgemeinen 
Programmplanung zu tun. 

Hätten Sie das DROP am Programmende be- 
rücksichtigt, wenn Sie HOCH2 selbst geschrie- 
ben hätten? Hier zeigt sich, daß der Einsatz 
des Stapels genau beobachtet werden muß. 

Diese Aufgabe können Sıe sich Jedoch er- 
leichtern, wenn Sıe Ihre Wortdefinition so kurz 
wıe möglich halten und die Äbläufe unterteilen 
— wie in der zweiten Definition von HOCH2. 
Obwohl dıe neue Definition flexibler ist — Sie 
können einen Endwert eingeben und sind 
nicht an 10000 gebunden — ist sie nicht kompli- 
zierter. Wenn Sıe dagegen die erste Version 
verändert hätten, wären Sie schon nach kurzer 
Zeit mit allen Arten von SWAP und OVER kon- 
frontiert worden. Da Sıe ** definiert und damit 
zwei kurze Wörter haben, ıst die zweite Ver- 
sion wesentlich einfacher. 


Zahlenbasis 

In FORTH läßt sich die 
Zahlenbasıs austau- 
schen. Die eingegebe- 
nen Zahlen können da- 
her binär, oktal, dezimal 
oder hex sein oder 
jede andere Basis ha- 
ben. Das Format wird 
über BASE angegeben: 


54 16 BASE ! . DECIMAL 


zeigt die Hexzahl 36 (54 
Dezimal) an und schal- 
tet mit dem Wort DECI- 
MAL auf die Basis 10 
zurück. Es ist einfacher, 
Wörter wie 


:HEX 16 BASE ! 


zu definieren. Beachten 
Sie, daß hier eine Zahl 
Teil einer Wortdefini- 
tıon ıst und von späte- 
ren Änderungen der 
Zahlenbasis nicht be- 
einflußt wird. 


1602 


Gesiebter 


Zahlensalat 


FORTH kann nur Ganzzahlen und Festkommaformate verarbeiten. Wir 


untersuchen diese Eigenart am Beispiel des „Sieb des Eratosthenes‘“, 
das wir schon einmal in der PASCAL-Serie abgedruckt hatten. 


ruchzahlen behandelt FORTH ım „Fest- 

kommaformat“. Die eingesetzten Zahlen 
werden durch Konstante — normalerweise Zeh- 
nerpotenzen — dividiert oder multipliziert. 

Die Zahlen des FORTH-Stapels haben Je 16 
Bits und können entweder vorzeichenbehaf- 
tete Ganzzahlen (das Vorzeichen wird vom 
höchstwertigen Bit angezeigt) zwischen 
—32768 und +32767 darstellen oder Ganzzah- 
len ohne Vorzeichen zwischen O und 65535. Am 
einfachsten läßt sıch dies durch dıe Eingabe 

65535. 
feststellen. Die Antwort ıst -1, da dıe oben auf 
dem Stapel liegende Zahl als vorzeichenbe- 
haftet angesehen wird. Die Zahl 65535 ohne 
Vorzeichen wırd auf dem Stapel von dem gleı- 
chen Wert dargestellt wıe — 1 mit Vorzeichen. 

Das Wort U. funktioniert wıe. und sıeht den 
obersten Stapelwert ohne Vorzeichen an. 

655835 U. 
zeigt daher 65538. 

Etliche Sprachversionen setzen für diesen 
Zweck andere Wörter eın. Die Wahl zwischen 
Vorzeichen oder keinem Vorzeichen wiırd beı 
Zahlen zwischen 32768 und 65535 wichtig. Sie 
müssen sıch dann entscheiden, ob Sıe dıe 
Wörter für vorzeichenbehaftete Zahlen eınset- 
zen wollen (in diesem Fall verursachen Zahlen 
über 32768 einen Überlauf) oder Zahlen ohne 
Vorzeichen (ın diesem Fall entstehen keıne 
negativen Zahlen). Ein gutes Beispiel dafür 
sınd Werte, dıe Speicheradressen anzeigen 
und nur mit Wörtern ohne Vorzeichen eınge- 
setzt werden können — zum Beispiel U< statt 
<. Sie können aber Stapelzahlen auch als Mu- 
ster ım 16-Bıt-Format ansehen und damit nor- 
male Boolesche Bitoperationen vornehmen. 

Unser Programmbeispiel zeigt mit dem Sieb 
des Eratosthenes alle Primzahlen bıs 65536 an. 
Wie beı allen FORTH-Programmen laßt sıch 
das Programm rückwarts leichter lesen: Fan- 
gen Sie mit dem wichtigsten Wort PRIMES an, 
und suchen Sıe dıe Wortdefinitionen, die mit 
diesem Wort arbeiten. PRIMES schreibt zwar 
als erstes etwas auf den Bildschirm, muß aber 
als letztes — hinter den untergeordneten Wör- 
tern — eingegeben werden. 

Das Sıeb des Eratosthenes funktioniert fol- 
gendermaßen: Sıe schreiben alle Zahlen bis zu 
einer bestimmten Grenze nieder. Wenn Sıe 


eine Primzahl finden, streichen Sıe alle Vielfa- 
che dieser Zahl durch, da sıe keine Primzahlen 
sein können. Die nächste Primzahl ıst dann der 
nächste Wert, der nıcht ausgestrichen wurde. 
Nach 1 (dıe aus verschiedenen Gründen nicht 
als echte Primzahl gilt) finden Sıe die erste 
Primzahl 2 und streichen alle Vıielfache davon 
aus. Die nächste nıcht gestrichene Zahl ıst nun 
die Prımzahl 3, von der Sıe wiederum alle Vıel- 
fache streichen etc. 

Unser FORTH-Programm speichert acht 
KByte — oder 65536 Bits — je eın Bıt pro Zahl 
zwischen 1 und 655386. Die Bits stehen zunächst 
auf O, werden aber beim Ausstreichen der Zahl 
auf 1 gesetzt. Der Befehl 

CREATE BITS 8192 ALLOT 
reserviert den Speicherplatz für die Bits. (Wır 
haben 8192 durch dıe Konstante BYTES er- 
setzt.) Wir werden später untersuchen, wie 
dıes funktioniert. Nun ıst eın Block von 8192 By- 
tes irgendwo ım Speicher reserviert und das 
neue Wort BITS angelegt, das dıe Adresse des 
ersten Bytes auf den Stapel schiebt. Der Stapel 
enthält Jetzt ein Array von Bytes. 


Variable CURBYTES 


Für das Ansprechen eınes dieser Bıts brau- 
chen wır zwei Zahlen — eine Zahl gıbt an, wel- 
ches Byte das Bıt enthält (wır können für dıese 
Zahl dıe Speicheradresse des Bytes einsetzen) 
und die andere, welches Bit ınnerhalb des By- 
tes gemeint ist (also eın Wert zwischen O und 
7). Es ıst nıcht allzu schwierig, zwischen die- 
sem Zahlenpaar und der Zahl (zwischen | und 
65536) umzuschalten, dıe das Bit darstellt. 

CURBYTES ıst eine Variable. Ihr Wert CUR- 
BYTES @ ist dıe Adresse eınes Bytes ım Array 
BITS, CURBYTES @ C @ dagegen der Wert des 
Bytes. Wenn Sie die Programmiersprache C 
kennen, wird Ihnen dieses Konzept vertraut 
sein. Da Primzahlen und Adressen recht groß 
werden können, setzen wır gelegentlich Wör- 
ter ohne Vorzeichen wıe U. und U< eın. 

Das Wort: 

+!(n, Adresse — ) 
tauscht den Wert der angegebenen Adresse 
gegen die zuvor dort gespeicherte Zahl aus, 
auf die n addiert wurde. Es eignet sich daher 
für dıe Erhöhung eines Varlablenwertes um 


& 


schen Mathem 


Sieb des 
nach dem 


the- 
chi- 
er 


benannt, der es entwik- 
kelte, ist eine wir- 
kungsvolle Methode, 
die Vielfachen einer 
Zahlenfolge „auszusie- 
b 


> rückbleiben. 


“ bis nur die Prim- 
im „Sieb“ zu- 


AN 


8192 CONSTANT BYTES 


CREATE BITS BYTES ALLOT BITS AN 


+ CONSTANT BITSEND 


eine bestimmte, zuvor genau definierte Zahl. 
Einige Wörter setzen die Arıthmetik mıt dop- 
pelten Zahlenlängen ein. Dabeı stellen zwei 
Zweı-Byte-Zahlen eine Vier-Byte-Zahl dar. Die 
höherwertige Zahl liegt näher an der Stapel- 
spitze, dıe niederwertige halb darunter. 
Obwohl der Standard von FORTH-83 nur die 
Eingabe von Zahlen einfacher Länge zuläßt, 
kann in den meisten Implementationen mit 
einem Punkt (an jeder Position der Zahl) ange- 
zeigt werden, daß die Zahl doppelte Länge be- 
sitzt (der Punkt wird dabei natürlich nıcht als 


I Dezimalpunkt interpretiert). 10.000 ıst bei- 


> ee dıe doppelte Zahlenlange 
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CURBYTE @ BITSEND U IF 
C 


( 4 bit for each number I - M\, 

VARIABLE CURBYTE VARIABLE CURBIT ABLE DELBYTE WARIABLE DELBIT 

( shas number being looked at. u ) Pr ( BER ELEIT ) 

( points byte in BITS, CURBIT to p 

VARIABLE MASK ( FACURBIT ) DELBIT ® IF « ı#+ DELBIT non-zero ) 


VARIABLE PRIM IR. DELBIT @® 8 DO « nultiply Iby 2 ) 
VARIABLE PRIM 24 ( 2 DELBIT tınes ) 
( show prime whe LOOP 


en} 


: SEP X -- ) N like N 
array BITS ) ; 


BYTES #8 DO 
8 BITS I°’+ 
LOOP 
BITS CURBYTE URBIT 
NEXTBIT € -- 8 or non-ze 
adyusts CURBYTE etc to fin 
and stacks it ) 
I CURBIT +' 
MSK B 2% MASK | 
CURBIT @B = IF 
B CURBIT 9 
I MSK ' 
I CURBYTE +' 
THEN 
CURBYTE @ CB MASK ® 


and PRIMENODB ) 
CURBIT @ 1+ 
pvp 8 = IF 
DROP 8 PRIMEMODS ' 


ELSE 
PRIMEMODB !' 8 
THEN 


CURBYTE @ BITS - + PRINE/B | 
PRINEYB ® 8 % PRIMEMODB @ + PRINE ' 


ANOTHER-PRIME ( -- 8 or 


rue (-Bo-t) 
adjusts DELBYTE and DELBIT ) 


h ( tonext bit ı$ set ) 


# left it end o# BITS array Ar“ ) 
PRIMEMODR_@ DELBIT +' 
PRINE/ DELBYTE #' 
DELBI > IF 
ı Di ‘ 
THEN 
DELBYTE ® BITSEND UK BIT 
I-R ERW 


care case DEL 


eeds 65535 ) 


* 
’ 


CURBIT @ DELBIT 
N 


DEL PIES ( -- ) _ 
set m/tıples of current prı 
PRIMEETC X -- > ( sets ‚ PRIN CURBYTE @ DELBYTE | 


Di Br E 


R DELBYTE P C! 


j2 


» 


Bi 
s all prımes between 2 and 65535 ) 


>10) ER-PRIME WHILE 


adyusts CURBYTE etc to next prime, sets ) PRIME @ U. 
PRIME etc. 8 left it end of BITS reached ) DELETEHULT 
BEGIN REPEAT 

NEXTBIT @= UNTIL ; = 


Mathematische Worte 


Addition und Subtraktion: Es gibt keinen 
Unterschied zwischen Addition und Subtrak- 
tion mit oder ohne Vorzeichen. + und - stel- 
len einfache Längen dar, D+ und D— dop- 
pelte Längen. 

Vorzeichen-Minus: NEGATE für einfache 
Längen, DNEGATE für doppelte Längen. fig- 
FORTH nimmt dafür MINUS und DMINUS. 
Multiplikation: * hat einfache Länge, mit 
oder ohne Vorzeichen. UM* hat nicht-vorzei- 
chenbehaftete „gemischte“ Länge — der Be- 
fehl zieht zwei Zahlen ohne Vorzeichen vom 
Stapel und legt dort das Ergebnis in doppel- 
ter Länge ab. In älteren FORTH-Versionen 
wird UM* auch U* genannt. Es gibt dort 
auch das vorzeichenbehaftete Produkt M*. 
Division: /, MOD und /MOD haben einfache 
Länge mit Vorzeichen. Sie ergeben entweder 
den Quotienten, den Rest oder beide (mit 
dem Quotienten oben auf dem Stapel). UM/ 
MOD ist die Version von /MOD für ge- 
mischte Längen ohne Vorzeichen. Sein Divi- 
dend hat dabei doppelte Länge. In älteren 
FORTH-Versionen ist dies U/ oder U/MOD. 
FORTH-83 rundet immer auf die nächst klei- 
nere Ganzzahl. 10/3 wird daher auf 3 abge- 
rundet, --10/3 jedoch auf —4. Ältere FORTH- 
Versionen runden immer in Richtung 0, so 
daß -10/3 —3 ergibt. Nachdem der Quotient 
mit diesen Regeln berechnet wurde, wird der 
Rest mit folgender Formel bestimmt: 
Dividend = Divisor * Quotient + Rest 
Multiplikation mit Division: */ hat einfache 
Länge mit Vorzeichen und folgende Auswir- 
kung auf den Stapel: 

n1,n2,n3——n1*n2/n3 
Vergleichsoperationen: = < > und U< ha- 
ben einfache Länge. < und > haben Vorzei- 
chen, U< ist ohne Vorzeichen und = gilt für 
beides. D-D< und DU<- haben doppelte 
Länge. D< hat Vorzeichen, DU keine Vorzei- 
chen und D- beides. MAX und MIN zeigen 
die größere oder die kleinere von zwei Zah- 
len an. Sie haben einfache Länge mit Vorzei- 
chen. DMAX und DMIN haben doppelte 
Länge mit Vorzeichen. 

Absolute Werte: ABS und DABS gelten je- 
weils für einfache und doppelte Längen. 
Bitweise Boolesche Operationen: AND, OR, 
XOR und NOT haben einfache Länge. Das 
Vorzeichen spielt keine Rolle. 
Standardkombinationen: Einige Worte wer- 
den so oft gemeinsam eingesetzt, daß ihre 
Kombination ohne jeglichen Zwischenraum 
geschrieben wird und somit als einzelnes 
Wort gilt. So hat denn beispielsweise 1+ die 
gleiche Wirkung wie 1 +. 

Darstellung: . und U. haben einfache Länge 
und können mit oder ohne Vorzeichen sein. 
D. hat doppelte Länge mit Vorzeichen. 
Speicheradressierung: Eine Adresse mit 
einfacher Länge und ohne Vorzeichen kann 
sich auf die zwei Bytes dieser Adresse bezie- 
hen (wie mit @ und !) oder auf nur ein Byte 
(mit C@ und C! — C bedeutet „Character“ ) 
oder auf die dort gespeicherte Vier-Byte-Zahl 
doppelter Länge (mit 2@ und 2!). 
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Aus Gründen der Geschwindigkeit und Optimierung werden die 
Colon-Definitionen in FORTH „halb-compiliert“. In diesem Artikel 
beschreiben wir die Compiliermethoden von FORTH und untersuchen, 
welche Wirkung die Neudefinition von bereits bestehenden Wörtern 


auf die Programmausführung hat. 


D: halb-compilierten Colon-Definitionen 
werden zwar nicht ın den Maschinencode 
übersetzt (wie bei einer vollständigen Compi- 
lıerung), belegen aber wenig Platz und laufen 
schnell ab. FORTH Programme haben daher 
eine hohe Ausführgeschwindigkeit. 

Es gibt zwar mehrere Methoden der Halb- 
Compilierung, doch wird die figFORTH-Me- 
thode an häufigsten eingesetzt. Bei der Defini- 
tion des Wortes: 

SOUARE inn’nr DUP* ; 


wird zunächst eın „Header“ ın das Vokabular 
eingetragen. Er enthält den Namen SQUARE 
und die Speicheradresse des Headers des zu- 
letzt definierten Wortes. Da alle Header mitein- 
ander verbunden sınd, kann der Computer das 
Vokabular vom zuletzt definierten Wort an 
rückwärts durchsuchen, bis er das gewünschte 
Wort findet. Die beiden Teile des Headers hei- 
ßen „Namensfeld" und „Linkfeld". 

Auf den Header folgt die Definition. Dort 
steht zunächst ein Code, der anzeigt, welche 
Art der Definition vorliegt: Es gibt unterschied- 
liche Codes für Colon-Definitionen, Variablen, 
Konstanten, mit CREATE angelegte Strukturen, 
Wörter, dıe ın Maschinencode für das System 
definiert wurden und jede andere Art von Wör- 
tern. Dieser Teil heißt „Codefeld". 

Als nächstes kommt der Hauptteil der Co- 
lon-Definition. Er besteht aus den Adressen 
der Wörter, dıe von der Definition eingesetzt 


Codefelder 


In Codefeldem ist die Codenummer die Spei- 
cheradresse des Maschinencodes, der bei 
Aufruf des Wortes ausgeführt wird. Jede Co- 
lon-Definition speichert die Adresse, zu der 
der FORTH-Interpreter nach Ausführung des 
Wortes zurückkehrt. Dafür wird die Rück- 
sprungadtresse auf einen speziellen Stapel — 
den „Rücksprungstapel“ — geschoben und 
der Interpreter auf die Anfangsadresse der 
aktuellen Definition gesetzt. 

Die Maschinencoderoutinen für Konstanten 
und Variablen, deren Parameterfelder nur 
eine einzige Zahl enthalten, sind anders auf- 
gebaut: Bei sogenannten primitiven Wörtern 
wie + und * liegt der entsprechende Maschi- 
nencode direkt im Benutzerfeld, während das 
Codefeld die Adresse enthält. 


werden („Compilierungsadressen"). 
Hier die Definition von SQUARE: 
Namensfeld: "SQUARE" 
Linkfeld: Headeradresse des vorigen 
Wortes (2 Bytes) 
Codefeld: Code für eine Colon-Definition 
(2 Bytes) 
Parameterfeld: Compilierungsadresse von 
DUP (2 Bytes) 
Compilierungsadresse von * (2 Bytes) 
Compilierungsadresse von ; (2 Bytes) 
Die Compilierung von Colon-Definitionen läuft 
folgendermaßen ab: Zunächst werden das Na- 
mensfeld und das Linkfeld angelegt. Bıs hier 
ist der Vorgang für Jede Definition gleich. Als 
nächstes setzt der Doppelpunkt (:) den spe- 
ziellen Code für Colon-Definition ein. Von nun 
an wird Jedes eingegebene Wort nicht auf nor- 
male Weise ausgeführt, sondern dessen Com- 
pillerungsadresse ın das Vokabular eingetra- 
gen. Damit Sıe erkennen können, daß dieser 
Arbeitsgang aktiviert ist, wird die Meldung OK 
unterdrückt. 

Der Vorgang setzt sıch so lange fort, bis ein 
(‚;) eingegeben wird. Das Semikolon hat außer 
seiner im Vokabular eingetragenen Funktion 
noch dıe Wırkung, FORTH sofort aus der Com- 
pilierung in den normalen Zustand zurückzu- 
bringen. Wörter, die als Teil des Compilie- 
rungsvorgangs ausgeführt werden, werden 
„unmittelbare“ (immediate) Wörter genannt. 
sle befinden sich normalerweise nicht ım Vo- 
kabular, können aber dort speziell definiert 
werden. In diesem Fall wird im Vokabular je- 
doch nıcht deren Compilierungsadresse ein- 
getragen, sondern eine Art anonymer „Schat- 
ten“, der die Abläufe vom „;" für die Programm- 
ausführung enthält. 

Bei der Ausführung von SQUARE (beiıspiels- 
weise bei der Eingabe von 4 SQUARE) sucht 
FORTH ım Vokabular und findet dort die ent- 
sprechende Definition. Diese teilt FORTH mit, 
daß zuerst DUP, dann * und dann das Ende 
(der Definition) ausgeführt werden soll. 

Da Zahlen keine Compillerungsadressen 
besitzen, werden sie in einem zusammenge- 
setzten Format compiliert. Am Anfang steht da- 
bei dıe Compilierungsadlıesse einer direkten 
Behandlungsroutine (Literal-Handler) — und 
dann die eigentliche Zahl. Ein Literal-Handler, 
der ım Inneren einer Colon-Definition auftritt, 


Neu definiert 


Auch die Schneider- 


Computer CPC 464 
664 gehören zu der 


und 


wachsenden Zahl von 


Computern, die mit 


FORTH arbeiten kön- 
nen. Die Kuma-Version 
von FORTH entspricht 
dem figFORTH-Stan- 
dard und bietet Fließ- 


kommaarithmetik, 
Möglichkeiten der 


Stringverarbeitung und 


Farbgrafik. 
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FORTH arbeitet mit der 
Methode der „Halb- 
Compilierung“, um die 
Programmausführung 
zu beschleunigen. Bei 
Eingabe einer Colon- 
Definition werden im 
Vokabular unterschied- 
liche Felder angelegt, 
die mit dem Namens- 
feld, Linkfeld und dem 
Codefeld anfangen. 
FORTH schaltet dann 
den Compilierungsmo- 
dus (Rot) an, in dem 
das Wort nicht unmit- 
telbar in das Vokabular 
eingetragen wird, son- 
dern nur eine „Compi- 


lierungsadresse“ im Pa- 


rameterfeld der Defini- 
tion. Nach dem ; schal- 
tet FORTH wieder in 
den Ausführmodus 
(Schwarz) zurück. 
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teilt dem System mit, daß die beiden folgen- 
den Bytes keine Compilierungsadresse dar- 
stellen, sondern eine Zahl, die auf den Stapel 
geschoben werden soll. 

Das nächste Problem tritt bei der Program- 
mierung von Strukturen wie IF...THEN.... 
ELSE auf. Im Maschinencode oder ın einfache- 
ren BASIC-Versionen läßt sich diese Aufgabe 
mit Sprüngen lösen, wie: 

1000 IF oberster Stapelwert = O0 THEN 

GOTO 1000 

1010 REM folgende Zeilen ausführen, wenn 

dıe Bedingung wahr ıst 


1090 GOTO 1200 
1100 REM folgende Zeilen ausführen, wenn 
die Bedingung falsch ist 


1200 REM ın beiden Fällen hier weiter- 


machen 
Compiliertes FORTH funktioniert ähnlich. Doch 


obwohl FORTH die Wörter BRANCH (unbe- 
dingter Sprung) und ?Branch (obersten Stapel- 
wert herunterziehen und springen, falls der 
Wert Null ıst) besitzt, Können sıe nicht ohne 
weiteres verwandt werden, da sie sich nur in 
zusammengesetzter Form (wie eine compi- 
lıerte Zahl) einsetzen lassen: Auf die Compilie- 
rungsadresse muß die Adresse folgen, auf die 
der Sprung stattfinden soll. Es ist Aufgabe der 
unmittelbaren (immediate) Wörter IF, ELSE, 
THEN etc., diese Sprungadressen herauszufin- 
den und in die zusammengesetzten Formate 
einzufügen. So enthält IF beispielsweise die 
Compilierungsadresse von ?BRANCH und den 


Einträge 
ins Vokabular 


Adresse des 
vorigen Wortes 


Parameterfeld- 
n Bytes 


Platz für die Sprungadresse, kann aber die 
Sprungadresse nicht einsetzen, da nicht be- 
kannt ist, wo sich das ELSE befindet. IF legt 
statt dessen die Adresse auf den Stapel, und 
ELSE setzt später die Sprungadresse eın. Da- 
mit lassen sich Strukturen wie 
IF... „Er GN. ELSE. .«MINTIL ;. «UREN 

abfangen. Sehen wiır uns einige Beispiele an: 


‚1) Nehmen Sıe einmal an, Ihre FORTH-Version 


könnte zwar zwischen Groß- und Kleinschrei- 
bung unterscheiden, doch wären alle Stan- 
dardwörter .nur mit Großbuchstaben ım Voka- 
bular eingetragen, — das heißt, LOOP würde 
erkannt werden, loop dagegen nicht. Wenn Sıe 
die Standardbefehle nun auch ın Kleinbuchsta- 
ben eingeben wollten, könnten Sıe definieren: 

deep DROP; 
: roll ROLL; 
: varıable VARIABLE (auch das funktioniert); 
Schwierigkeiten gibt es mit 

:loop LOOP (funktioniert nicht) 
da loop ein unmittelbares Wort ıst und daher 
schon beı der Definition ausgeführt wird. Die 
einzige Möglichkeit, LOOP mit Kleinbuch- 
staben zu definieren, ist: 

:loop [COMPILE] LOOP ; IMMEDIATE 
Hierbei müssen drei Situationen berücksich- 
tıgt werden. Zunächst die Definition: Während 
die Compilierungsadresse unter loop eingetra- 
gen wird, schaltet [COMPILE] die sofortige 
Ausführung ab, und IMMEDIATE kennzeichnet 
loop als unmittelbares Wort. Ferner ıst zu be- 
rücksichtigen, daß loop während der Compi- 
llerung eines anderes Wortes eingesetzt und 
als unmittelbares Wort sofort ausgeführt wird. 
Da dies der Haupteinsatzbereich von loop ıst, 
tritt dieser Fall häufig ein. Die dritte Sıtuation 


Bedeutende Wörter 


Mit [ und ] können Sıe von einer Colon-Defi- 
nition ın den Ausführungsmodus schalten. 
LITERAL, ein unmittelbares (immediate) 
Wort, nımmt den obersten Wert des Stapels 
und compiliert ihn in einer Colon-Definition 
auf übliche Weise ın eine Zahl. Normaler- 
weise wird LITERAL zusammen mit [ und ] 
eingesetzt, um während der Compilierung 
einen Ausdruck zu berechnen, dessen Er- 
gebnis compiliert werden soll. So hat 

[9 16* ] LITERAL 
die gleiche Auswirkung wie die Zahl 144. 
[COMPILE] ıst ein unmittelbares Wort, das 
veranlaßt, daß das nächste Wort nicht ausge- 
führt, sondern direkt in die Definition einge- 
schlossen wird. 
COMPILE ist kein unmittelbares Wort. Bei 
seiner Ausführung wird das darauffolgende 
Wort in das Vokabular eingeschlossen. 
BRANCH und ?BRANCH werden wie in unse- 
rem Beispiel eingesetzt. >MARK und >RE- 
SOLVE geben bei einem Vorwärtssprung die 
Sprungadressen an: >MARK steht dabei an 
der Position des Sprunges und >RESOLVE 
an der Bestimmungsposition. <MARK und 
<RESOLVE werden auf die gleiche Weise 
für einen Rückwärtssprung verwandt, wobei 
<MARK vor der Bestimmungsposition steht 
und <RESOLVE an der Sprungposition. 
IMMEDIATE wandelt das vorangehende Wort 
in ein unmittelbares Wort um. 


entsteht beim eigentlichen Ablauf, wenn beı 
der Ausführung eines anderes Wortes die von 
LOOP compillerten Definitionen ablaufen. 
2) Das Wortpaar ?DO und ?LOOP ähnelt DO 
und LOOP. Wenn dabeı Anfangswert gleich 
Endwert ist, kommt die Schleife niemals zur 
Ausführung. 

?DO entspricht OVER OVER > IF DO 
?LOOP entspricht LOOP ELSE DROP DROP 

THEN 

Bei den Definitionen 


: ?DO {hier ıst der Fehler) OVER OVER > IF 


DO: 

würde das gleiche Problem auftreten wie bei 
loop. Die korrekte Definition sieht folgender- 
maßen aus: 

DO 

COMPILE OVER 

COMPILE OVER 

COMPILE > 

[COMPILE] IF 

[COMPILE] D& 
;|MMEDIATE 


.OOP 
[COMPILE] LOOP 
[COMPILE] ELSE 
COMPILE DROP 
COMPILE DROP 
[COMPILE] THEN 


;IMMEDIATE 
3) Die Programmstruktur CASE bietet — abhän- 


gig von einem Steuerwert — eine ganze Reihe 
von Ablaufmöglichkeiten. CASE ıst zwar nıcht 
standardmäßig vorgesehen, läßt sich aber 
leicht definieren. Hıer das Format: 
Wert CASE 

1.Möglichkeit OF... .ENDOF 

2.Möglichkeit OF... .ENDOF 

3.Möglichkeit OF... .ENDOF 

falls keine der Möglichkeiten eintrifft 


ENDCASE =; 
Die Variable „Wert“ kann beispielsweise der 


ASCII-Code einer Taste sein. Damit lassen 
sich per Tastendruck unterschiedliche Abläufe 
aufrufen. 

In der Definition von CASE benötigt jedes 
OF einen bedingten Sprung auf ein ENDOF 
und Jedes ENDOF einen Sprung auf END- 
CASE, während ENDCASE unter Umständen 
mehrere Sprungadressen einfügen muß. Da 
die meisten FORTH-Versionen für diese Auf- 
gabe keine Wörter besitzen, müssen Sıe diese 
Sprünge mit >MARK und >RESOLVE selbst 
ausarbeiten. >MARK schiebt dabeı (wıe IF) 
die Adresse des für die Sprungadresse reser- 
vierten Platzes auf den Stapel, während >RE- 
SOLVE sie wieder herunterzieht und die 
Adresse einfügt. 

: CASE (Laufzeit: Wert — Wert) 

( compilieren: —O) 
O (Zahl der OFs — bisher keine) 
; IMMEDIATE 
: OF ( Laufzeit: Wert, falls möglıch — [bei 
Übereinstimmung]) 
( Wert, falls möglich — Wert [keine Überein- 
stıimmung]) 
(compilieren: — Markierung für den Sprung 
auf ENDOF) 

COMIPILE OVER 
COMPILE = 
COMPILE ?BRANCH > MARK 
COMPILE DROP (Wert löschen falls 

Übereinstimmung) 
; IMMEDIATE 
: ENDOF (Laufzeit: —) 
( compilieren: OF Zähler, 
OF Markierungen — 
( Markierung für den Sprung auf ENDCASE, 
OF Zähler + 1) 
COMPILE BRANCH > MARK 
SWAP >RESOLVE (Sprungadresse von OF 
einsetzen) 
SWAP 1I+ 
; IMMEDIATE 
: ENDCASE (Laufzeit: Wert — 
(compilieren: Markierung der ENDOFS, 
OF 
Zähler —) 
COMPILE DROP 
0 ?’DO 
> RESOLWE 
’LOOP 
; IMMEDIATE 
Vor dem Einsatz sollten Sıe die Abläufe mit ei- 
nigen Testzahlen überprüfen. 
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FORTH-Arrays 


FORTH verfügt zwar standardmäßig nicht über Arrays, kann diese 
Strukturen aber definieren. Wir demonstrieren diese Definitionsart. 


ei der Programmierung des Sıeb des Era- 

tosthenes haben wir mit CREATE bereits 
einige Konzepte gestreift, die bei Array-Defini- 
tionen eingesetzt werden. CREATE hatte dort 
die Funktion 

CREATE BITS 8192 ALLOT 
und enthielt einen (im Vokabular eingetrage- 
nen) Header namens BITS und ein Codefeld. 
Das Codefeld veranlaßte, daß BITS während 
der Laufzeit seine Parameterfeldadresse auf 
dem Stapel hinterließ. Da CREATE selbst jJe- 
doch keın Parameterfeld anlegt, zıeht ALLOT 
eine Zahl vom Stapel und reserviert im Voka- 
bular Platz für diese Anzahl Bytes. Der Platz 
lıegt unmittelbar hinter dem Codefeld, das von 
CREATE eingeschlossen wırd und dient BITS 
als Parameterfeld. 

Hier ein einfaches Beispiel für die Definition 
des Wortes 3**, das eine dritte Potenz berech- 
net. Zum Speichern aller nur möglichen Ergeb- 
nisse verwenden wir eın Array das mit 
CREATE und dem FORTH Wort „" (Komma) 
angelegt wird: 


VARIABLE MAXINDEX 
"POTENZ, (——) 
(schließt alle Dreierpotenzen ein, die ın 
zwei Bytes passen und setzt den Index der 
höchsten Potenz ın MAXINDEX.) 
—1 MAXINDEX | 
1 (kleinste Potenz) 
BEGIN 
DUP ( Potenzzahl ins Vokabular aufnehmen ) 
1 MAXINDEX +! 
3 UM* ( nächste Potenz, doppelte Länge ) 
( in FORTH-79 und figFORTH UM* 
durch U* ersetzen ) 
UNTIL (bis die nächste Potenz mehr als 2 
Bytes belegt ) 
DROP ( niederwertige Bytes der Potenz mit 
doppelter Länge ) 


CREATE 3POTENZ POWERS 
( ALLOT wird nicht gebraucht, da das 
Komma das Einschliefsen erledigt ) 
:3** (n —— 3**n) 
MAXINDEX @ OVER U<IF 
DROP © (n liegt nicht zwischen O und 
MAXINDEX. Ergibt 0) 
ELSE ( der Speicherinhalt von B3POTENZ 
+ 2*n wird gebraucht) 
2 * 3POTENZ +@ 
THEN 


SPOTENZ ıst ein eindimensionales numeri- 


Array-Strukturen 


Mit CREATE und DOES> lassen sich in FORTH leicht Arrays anlegen. 
Das Diagramm zeigt Schnitt für Schnitt, wie FORTH elf ARRAY RUNS 
ausführt. JARRAY wurde zuvor im Vokabular als Colon-Definition ein- 
gerichtet. Das Bild zeigt auch die Auswirkungen auf den Stapel. 


Colon- 
Definition 


: IARRAY 
CREATE 


DUP + 


HERE 


OVER 


ALLOT 


SWAPOFILL 


DOES> 


SWAP 


Elf „IARRAY RUNS“ 


& 
3 


CREATE teilt RUNS ein Namensfeld 
und ein Codefeld zu. RUNS hinterläßt 
beim Einsatz nun seine Pfa auf dem 
Stapel. 


pr 


DUP+ multipliziert 1] mit zwei und 
schiebt das Ergebnis auf den Stapel. 


HERE schiebt die nächste verfügbare 
Adresse des Vokabulars auf den Sta- 
pel. Da wir gerade RUNS einge- 
schlossen haben, ist dies die Pfa von 
RUNS. 


OVER kopiert 22 oben auf den Stapel 
(direkt über die Pfa von RUNS). 


ALLOT zieht 22 vom Stapel und re- 
serviert im Vokabular 22 Bytes, die 
(da wir gerade RUNS dort eingesetzt 
haben) das Parameterfeld für RUNS 
bildet. 


Freu 


SWAP setzt 22 über die Pfa von 
RUNS, schiebt dann 0 auf den Stapel. 
FILL nimmt die drei Parameter und 
stellt alle 22 Bytes des Parameterfel- 
des auf Null. 


Laufzeit (hinter DOES>) 


"Yo 
af 
Bu 


99 2 RUNS ! setzt beispielsweise den 
Stapel wie im Bild gezeigt und spei- 
chert den Wert 99 im Element 2 des 

Arrays RUNS wie folgt: 


SWAP setzt den Arrayindex (2) an 
die Stapelspitze. 


DUP+ verdoppelt den Wert... 


Are] a 


+ addiert den Index (der nun den 
Offset bildet) auf die Pfa von 
RUNS... 


FE 


I nimmt 99 und speichert den Wert an 
der richtigen Adresse. 


u: 
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sches Array. Sie könnten es ebensogut mit 
ALLOT und ! anlegen. Stnng-ÄArrays werden 
auf ähnliche Weise aufgebaut. Weil dabei Je- 
des Zeichen aber immer nur von einem Byte 
dargestellt wird, müssen Sie C, , C! und C@ 
nehmen, statt, ! und @. 


Array-Einsatz 


Der Einsatz eines Arrays wie SPOTENZ muß al- 


lerdings mit 
2 "3POTENZ + 


gekennzeichnet werden, da 3POTENZ nicht 
weiß, daß es ein Array ist. Das Wort hinter- 
läßt nur seine Parameterfeldadresse zur wei- 
teren Bearbeitung. Mit CREATE (figFORTH: 
<BUILDS) und DOES> lassen sich Jedoch „in- 
telligentere" Wörter anlegen, CREATE und 
DOES> definieren neue Wörter, die eigent- 
lich verbesserte Versionen von CREATE — und 
damit neue Definitionswörter sind. Sie enthal- 
ten nicht nur CREATE, sondern führen gleich- 
zeitig auch andere Vorgänge aus. Die neuen 
Definitionswörter können beispielsweise dar- 
über informieren, welche Aufgaben ein neu 
angelegtes Wort hat, statt nur die Parameter- 
feldadresse (pfa) auf den Stapel zu schieben. 


:IJARRAY(n——) 
( baut ein eindimensionales numerisches 
Array mit der Dimension n auf ) 
CREATE ( der Name wird beim Eınsatz von der 
Position hinter JARRAY genommen ) 
DUP + (ein schneller Weg, 2 * auszuführen) 
HERE (beachten Sıe dıe Parameterfeld- 
adresse für FILL) 
OVER ALLOT 
( jetzt 2”n, pfa) 
SWAP OÖ FILL 
( alle Bytes des Parameterfeldes auf 
0 stellen ) 
DOES> (Subscript, pfa —— Adresse des 
Elements ) 
SWAP DUP + (pfa, 2* subscript) 
+ 


Das Beispiel besteht aus zwei Teilen: Die vor 
DOES> stehende Definition wird beim Einsatz 
von lARRAY ausgeführt. Sie legt das Parame- 
terfeld des neuen Wortes an. 


11 ITARRAY RUNS 


richtet das neue Wort RUNS ein und ordnet ihm 
mit ALLOT eın aus 22 Bytes bestehendes, und 
mit Nullen ınitialısiertes Parameterfeld zu. Der 
zweite Teil von IJARRAY (nach DOES>) wird 
beim Ablauf aktiviert. RUNS schiebt dabei 
zwar auch hier noch seine Parameterfeld- 
adresse ganz einfach auf den Stapel, setzt 
dann aber seine „Intelligenz“ ein und legt an 
dieser Stelle elf Vanablen mit den Namen: 


10 RUNS 

an, die sich wıe normale Variablen einsetzen 
lassen. Hier eın Beispiel: 

99 2 RUNS | 

4RUNS @. 


Dieser Einsatz von CREATE...DOES> war 
recht einfach. Mit etwas mehr Erfahrung kön- 
nen Sie Jedoch weitaus komplexere Aufgaben 
damit erledigen. Bei der Entwicklung von 
FORTH-Programmen wird in Vanablendefini- 
tionen oft das @ vergessen. Mit CREATE und 
DOES> lassen sıch nun Vanablen definieren, 
die ohne @ auskommen. Normalerweise wird 
dabei nur der Varlablenwert (wıe beı einer 
Konstanten) auf dem Stapel zurückgelassen. 
Wenn Sıe den Wert jedoch ändern wollen, ent- 
steht ein Problem, das Sie am besten mit dem 
Wort — lösen. Hier der Ablauf: 
Neuer Wert — Variablenname im neuen Stil 

— hat nur die Aufgabe, dem System (durch Set- 
zen einer Varlablen) mitzuteilen, daß dieses 
Wort verwendet wurde. Die Varlable „Im neuen 
Stil" weiß dadurch Jedoch, daß sıe einen neuen 
Wert vom Stack ziehen muß, statt ihren aktuel- 
len Wert auf den Stapel zu schieben. 


VARIABLE = USED 
0 — USED! 
© — 1 USEDI; 


Wir wollen nun für das Definitionswort VARIA- 
BLE eın neues definieren. Das neue Wort ist 
ebenfalls ein Definitionswort und arbeitet mit 


GREATE. .»DOES > 


0, (teilt 2 Bytes zu, dıe mit O ınitıalısıert sınd ) 
DOES > 
— USED @ IF ( neuer Wert, pfa — — ) 
| (neuen Wert setzen ) 
0 — USED! 
ELSE (pfa — — aktueller Wert ) 
@ 
THEN 


Hier die Definition der VAR Variablen x. Sie 
wird auf 99 gesetzt und der Wert angezeigt: 


VARx 
99x 
X, 


CREATE und DOES> lassen sich außerordent- 
lich flexibel einsetzen, da sie zwei Eigenschaf- 
ten miteinander kombinieren, die normaler- 
weise separat arbeiten. Die meisten Program- 


miersprachen enthalten „passive“ Daten, die 
bearbeitet werden und „aktive“ Routinen, die 
die Arbeit ausführen und mit Daten gefüttert 
werden. Mit CREATE und DOES> aber kön- 
nen Sie intelligente Daten anlegen, die sıch 
während des Programmablaufs selbst bear- 
beiten. Wenn Sie dieses flexible Konzept eın- 
setzen, müssen Sıe Jedoch die Trennung zwi- 
schen Daten und Programmen vergessen, die 
bei den meisten anderen Programmıerspra- 
chen verlangt wird. 


Der Array-Aufbau 


Die mit 1ARRAY definierten Arrays arbeiten 
schnell, prüfen aber nicht, ob der angege- 
bene Index überhaupt zulässig ist und kön- 
nen so durchaus Werte außerhalb des Arrays 
überschreiben. Wenn bei IARRAY die Dimen- 
sion am Änfang des Parameterfeldes gespei- 
chert wird, kann der Äblaufteil prüfen, ob ein 
angegebener Index kleiner ist als die Dimen- 
sionierung und eine Fehlermeldung ausge- 
ben, falls dies nicht der Fall ist. 

Einige Sprachen wie PASCAL und BASIC 
überprüfen Arrayindizes automatisch, wäh- 
rend andere (beispielsweise C) für hohe Ge- 
schwindigkeit ausgelegt sind und keinen 
Test ausführen. In FORTH können Sie selbst 
entscheiden, welchen Weg Sie gehen wollen 
und hierzu dann die Sprache entsprechend 
programmieren. 

Weiterhin setzen einige Programmierspra- 
chen den Index O als erstes Element ein, an- 
dere dagegen das Element | (oder ein ande- 
res). Auch hier läßt Ihnen FORTH weiterhin 
uneingeschränkt die freie Wahl. 

Mehrfachdimensionale Arrays arbeiten 
nach dem gleichen Prinzip, sind aber kompli- 
zierter aufgebaut. Ein mehrfachdimensionales 
Array stellt man sich normalerweise als drei- 
dimensionalen Block vor. Der Computer spei- 
chert ihn Zeile für Zeile in einer langen Liste. 
Sie können die Indizes als Offsets für diese 
Liste einsetzen, indem Sie diese mit den Di- 
mensionen multiplizieren. 


0 2 
ü 


Nützliche Wörter 


ı ‚{n — — } trägt n mit zwei Bytes im Vokabu- 


lar ein. Die Ein-Byte Version ist C,. 
HERE | — — Adresse ) schiebt die Ädresse 
des im Vokabular reservierten Platzes auf 


den Stapel und kennzeichnet damit die Stelle, 

an der der nächste Eintrag stattfinden soll. 

FILL { Adresse, n, Füllelement — — ) füllt 

von der angegebenen Adresse n Bytes mit 
dem Füllelement aus. 


Für ein dreidimensionales Ärray mit den 
Dimensionen 2 3 und 4 (insgesamt 24 Ele- 
mente) lassen sich die Indizes i, j und k fol- 
gendermaßen in Offsets umwandeln: 

(3 +j))*A4+k 

Hier die Definition von 3ARRAY: 

: 3ARRAY (d,e, f — —) 
( legt ein dreidimensionales Array mit den 
Dimensionen d, e und f an) 

CREATE 

OVER, DUP, ( e und f eintragen ) 

HERE (d,e, f, pfat4) 

2 ROT * ROT * ROT * ( pfat4, 2*d*e*f) 

DUP ALLOT ( 2*d+e+tf Bytes eintragen) 

O0 FILL { mit O initialisieren ) 

DOES> (i, |, k, pfa — — Adresse ) 

DUP@ (i,j,k, pfa, e) 

4ROLL* (j,k, pfa, i*e) 

3ROLL + (k, pfa, i*et}j ) 

OVER 2+@ (k, pfa, i*e+j, f ) 

* (k, pfa, [i*e+j]* f ) 

ROT + DUP + ( pfa, 2*[[i*e+j]*f+k] ) 

SWAP4 ++ 


(Beachten Sie, daß die Zahl vor ROLL in 
FORTH-79 um eins höher sein muß.) 

Nach dieser Methode lassen sich ähnliche 
Arrays (4ARRAY, 5SARRAY, etc.) anlegen. Es 
kann sogar ein Wort definiert werden, das 
eine Zahl vom Stapel zieht und Ihnen mitteilt, 
wie viele Dimensionen sich auf dem Stapel 
befinden. Falls Ihnen dies zu kompliziert er- 
scheint, sollten Sie nachlesen, wie die Pro- 
grammiersprache C Arrays anlegt. 


3 k 
! 
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FORTH kann Strings 
auf drei verschiedene 
Weisen im Speicher un- 
terbringen. Jede Me- 
thode arbeitet mit einer 
Adresse, die sich leicht 
einsetzen läßt und auf 
den Speicherbereich 
zeigt, in dem der String 
untergebracht wurde. 
Alle drei Methoden 
verwenden jedoch un- 
terschiedliche Techni- 
ken, um die Länge des 
Strings festzustellen. 
Beim „gezählten String“ 
wird die Längeninfor- 
mation im ersten Byte 
des Bereichs unterge- 
bracht, in dem auch der 
String gespeichert 
wurde. Der „Textstring“ 
legt den Längenwert 
auf den Stapel, wo er 
verändert werden kann. 
Einige FORTH-Versio- 
nen unterstützen 
Strings, die mit NUL 
beendet sind. Dabei ist 
das Ende des Strings 
einfach durch ein Null- 
byte markiert. 


Gezählter String 


Stapel 
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Wortspiele 


Mit der Verarbeitung von Strings beschließen wir unsere 
FORTH-Serie. Dabei simulieren wir verschiedene Möglichkeiten 
der BASIC-Stringverarbeitung in FORTH. 


Ir hatten bereits gesehen, daß sich das 

Wort.“ zwar leicht einsetzen läßt, für kom- 
pliziertere Stringverarbeitung aber nıcht geeig- 
net ıst, da dabei zwei wesentliche Probleme 
entstehen: Wo soll der String untergebracht 
werden und wie läßt er sich speichern? Da Ab- 
laufe dieser Art recht komplex sind, lohnt es 
sich, Wörter zu definieren, die die Einzelheiten 
für Sie erledigen. 

Strings können ın zweı Bereichen unterge- 
bracht werden - ın den mit ALLOT reservierten 
Parameterfeldern der im Vokabular eingetrage- 
nen Wörter und in einem Bereich namens 
„Pad". Pad ist ein Zwischenspeicher den 
FORTH auch für andere Aufgaben einsetzt. Bei 
jedem Vokabulareintrag oder jeder Interpreta- 
tion eines FORTH-Wortes per Tastatur kann Pad 
überschrieben oder verschoben werden. 

FORTH speichert Strings auf zwei Arten (als 
ASCII-Werte), dıe sich nur durch dıe Methode 
unterscheiden, mit der sie die Länge des 
Strings angeben. 

Bei „gezählten Strings" wird die Länge (maxi- 
mal 255 Bytes) ın einem einzigen Byte unmittel- 
bar vor den Zeichen gespeichert. Strings dieser 


III ICH) III 


Ein NUL-Byte ist 
die Endmarkierung 


Art lassen sich über die Adresse dieses Zähler- 
bytes ansprechen. Zwar können Sıe den String 
nicht auf den Stapel schieben, doch genügt es, 
seine Adresse dort abzulegen. Bei „Textstrings“ 
wird die Länge nicht automatisch mit abgespei- 
chert. Hıer müssen Sıe zwei Informationen an- 
geben: die Adresse des ersten Zeichens und 
die Länge des Strings. 

Der ın Stringvarlablen zur Verfügung ste- 
hende Platz ıst begrenzt, da erım Parameterfeld 
lıegt, dessen Länge mit ALLOT fest definiert 
wurde. Bei SVARIABLE müssen Sie daher nicht 
nur einen Änfangswert angeben, sondern auch 
die maximale Länge zukünftiger Zuordnungen. 
Dabeı kann es vorkommen, daß die Länge der 
ersten Zuordnung für später eingegebene 
Strings nicht ausreicht. 

Sehr praktisch ist das Wort ASCII. Es findet 
sıch in den meisten FORTH-Versionen, gehört 
aber nıcht zum Standard. ASCII schiebt den AS- 
CI-Code des nachfolgenden Zeichens auf den 
Stapel. Bei einer Colon-Definition compiliert es 
für die angegebene Zahl eın numerisches Zeı- 
chen, das dann während der Laufzeit auf den 
Stapel geschoben wird. 

32 CONSTANT BL ( ASCII-Code für ein 

Leerzeichen ) 
:ASCII ( —— ASCIl-Code ) ( Zeichen im 
ASCII-Format ) 
BL WORD ( nächstes Wort holen ) 
1+ C@ ( und den ASCII-Code für sein 
erstes Zeichen holen ) 
STATE @ IF ( IF gilt für die Colon- 
Definition ) 
 COMPIEE | LITERAL (LITERAL ist 
unmittelbares Wort ) 
THEN 
;IMMEDIATE ( ASCII hat spezielle 
Compiliereigenschaften ) 


:$ VARIABLE ( Länge —— ) ( eingesetzt im 
Format: ) 
(Länge $VARIABLE Namen- 
initialisiıerer " ) 


( Im Parameterfeld wırd 1 Byte für die ) 
( maxımale Länge gefolgt von einem 
gezählten ) 
( String dieser Länge eingerichtet ) 
CREATE 
255 MIN ( sicherstellen, daß der String 
nicht zu lang ist ) 
1 ALLOT ( für maximale Länge ) 
ASCIE "WORD ( Länge, Initialisierer als 
gezählter String ) 


DUPC @ROT MAX (Initialisierer, Max. 
Länge ) 
DUP HERE 1— CI! ( max. Länge 
einsetzen) 
HERE SWAP 1+ ALLOT ( Initialisierer, 
Addresse zur Speicherung ) 
OVER C@ 1+ CMOVE ( Initialisıerer ein- 
kopieren ) 
DOES > (pfa —— pfa + 1) (Wert als ge- 
zählten String auf Stapel schieben ) 
17 


Die folgenden Zeilen definieren $@ und S! für 
SVARIABLES. Der Stapel wird im Text-String- 
Format (Adresse und Länge) eingesetzt, um die 
Werte ansprechen zu können. 

:$@ ( pfa + 1 für die Stringvariable —— 

Text-String ) 


COUNT 
:$! ( Text-String, pfa + 1 für die String 
Variable —— ) 
( kürzt den Wert, falls er für dıe Variable 
zu lang ist ) 


DUP 1 — C@ ROT (adr, pfa, max. Länge, 
wirkliche Länge ) 

MIN ( adr, pfat1, einge- 
setzte Länge ) 

OVER OVER SWAP ( addr, pfat1, Länge, 

Länge, pfat1 ) 

C! ( neue Länge speı- 
chern ) 

SWAP 1 + SWAP ( adr, pfa+2, Länge ) 

CMOVE 


Sie können nun Stringvarlablen anlegen wie: 
0 $VARIABLE ZIFFERN 0123456789" 
(Die Owird automatisch auf lOgesetzt, um die 10 
vorhandenen Zeichen zu berücksichtigen. Da- 
nach ist die maximale Länge der Stringvarla- 
blen auf 10 festgelegt.) 
ZIFFERN $ @ TYPE 
(zeigt 0123456789 an) 
255 $ VARIABLE XPAD XXX" 
(ein stabilerer Pad für 255 Zeichen.) 
Es wäre praktisch, wenn sich Stringwerte per 
Tastatur verändern ließen. Die Wörter " und 
SINPUT entsprechen den BASIC-Anweisun- 
gen LETAS=,..." und INPUT AS. 
e ( —— Adresse, Länge des Text- 
String ) 
( außerhalb der Colon-Definition ım 
Format — "text" eingesetzt ) 
ASCII "WORD COUNT ( Text-String holen ) 
XxPAD $| ( in XPAD speichern ) 
XPAD $@ ( Adresse und Länge 
bleiben unverändert) 
Das Wort " erhält seinen String auf die gleiche 
Weise, wie bei Wörtern vom Typ VARIABLE ein 
neuer Name definiert wird. Diese Art Wörter 
können daher in Colon-Definitionen nicht funk- 
tionieren, lassen sich aber so einsetzen: 


"Papagei" PET $! PET $@TYPE 
"Pinguin" PET $! PET $@ TYPE 
Hier ein Wort, das Eingabebefehle imitiert: 

:$INPUT ( pfa+1 der String Variable —— ) 
( wartet darauf, dal% Sie einen 
String eingeben und kopiert ıhn ın 
die Variable) 

DUP DUP 1+ (pfa+t1, pfat1, pfat2 ) 

SWAP 1—C@ 2— (pfat1, pfat2, 

max.Länge-:2 ) 

EXPELT 

SPAN @ SWAP CI! 


Das Programm informiert EXPECT, nicht mehr 
Zeichen zu holen, als Platz in der Variablen ist. 
Bei einer bestimmten FORTH-Version kann hın- 
ter dem String zusätzlich ein NUL-Zeichen ein- 
gesetzt werden. Zur Sicherheit wırd von der ma- 
ximalen Länge daher 2 abgezogen, da sonst im 
Vokabular der Kopfsatz des nächsten Wortes 
zerstört werden könnte. 

In FORTH-79und figFORTH schreibt EXPECT 
in jedem Fall ein oder zwei NUL. Diese Zeichen 
sind notwendig, da die älteren FORTH-Versio- 
nen kein SPAN enthalten. Dabei muß eın zusätz- 
liches Wort die Zeichen bıs NUL zählen und so 
die Länge des Strings feststellen. 

Jetzt ist es möglich, das BASIC-Programm 

10 PRINT "Wie heißt Du?” 

20 INPUT A$ 

30 PRINT "Nett, Dich kennen- 

zulernen,";A$; ”." 

40 PRINT "Bis zum nächsten Mal! Tschüfs!“" 
mit selbstdefinierten Befehlen auch in FORTH 
zu Schreiben: 

30 $VARIABLE NAME 

:HALLO!I 

." Hallo! Ich bin der Computer. Wie heißt 
Dur” Ch 

NAME $INPUT 

." Das ist aber ein interessanter Name," 
NAME 

$@ TYPE 

"." ( Punkt anzeigen ) CR 

." Paß auf Dich auf, OK? Schönen Tag 

noch!” 
CR 


Mit BASIC lassen sich schnell kurze Pro- 
gramme schreiben, denen alle Fähigkeiten der 
Sprache (Fließkomma, Arrays, Strings etc.) zur 
Verfügung stehen. Für längere Programme eig- 
net sich BASIC jedoch nicht, da es immer an die 
niedrige Struktur der Sprache gebunden Ist — 
2. B. die Zeilennummern. Sehen Sie sich im Ver- 
gleich einmal unser FORTH-Wort HALLO! an. Es 
ist einfach aufgebaut und gibt ein ungefähres 
Verständnis davon, wie SINPUT, S @ und ähn- 
liche Wörter arbeiten. Die genaue Funktion läßt 
sich immer über die darin eingesetzten Wörter 
feststellen. Für den Programmablauf brauchen 
Sie jedoch nur zu wissen, was ein Wort ausführt, 
d. h. welche Werte auf dem Stapel sein müssen 
und welche Ergebnisse dort abgelegt werden. 
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Fachwörter von A bıs Z 


FORTH = FORTH 

Die Sprache FORTH wurde 1972 von 
dem Ästronomen Charles Moore 
entwickelt, nachdem er feststellen 
mußte, daß FORTRAN für seine Tele- 
skop-Steuerprogramme nicht ausrei- 
chend war. Die Schwierigkeiten 
rührten daher, daß Struktur und Ver- 
arbeitungsformen bei FORTRAN zu 
sehr an der mathematischen Lösung 
wissenschaftlicher Probleme orien- 
tiert sind. FORTH bedient sich eines 
Lexikons von „Primitives“ (Stamm- 
wörtern) für die elementaren Funk- 
tionen und eines Editor/Compiler/ 
Interpreter-Systems. 

Der Editor ermöglicht die Defini- 
tion neuer (unterprogrammähnlicher) 
Funktionen anhand des vorhandenen 
Wortschatzes. Die Namen werden 
dem Lexikon als neue „Wörter“ zu- 
gefügt. Die Funktionen werden com- 
piliert und gespeichert und sind 
über den Interpreter jederzeit durch 
Eingabe des betreffenden Wortes 
ausführbar. Den RAM-Bereich be- 
handelt FORTH als einen einzigen 
großen LIFO(Last In First Out)-Stack 
— den Programmspeicher dagegen 
als Gebilde aus unabhängigen Äb- 
schnitten. Jede Funktion verfügt über 
eine eigene Unterprogrammadresse. 
Das Programm springt zur Äusfüh- 
rung auf diese Adresse, greift alle 
nötigen Parameter vom LIFO-Stack, 
stapelt die Resultate dorthin zurück 
und geht zu der nächsten Adresse 
über. 

Beim Programmieren in FORTH 
kann man für jede Anwendung 
einen maßgeschneiderten Befehls- 
satz entwickeln. Die Hauptvorteile 
sind die Anpassungsfähigkeit und 
die Geschwindigkeit der Sprache. 
Der in der Abbildung gezeigte Jupi- 
ter Ace wurde mit FORTH als 
systemeigener Sprache ausgeliefert. 


FORTRAN = FORTRAN 

FORTRAN (FORmula TRANslator = 
Formelübersetzer) wurde 1956 als er- 
ste kommerzielle Hochsprache bei 
IBM entwickelt. IBM bewies damit, 
daß auch ein dem gewohnten Eng- 
lisch nahestehender Programmier- 
code schnell und effizient compilier- 
bar sein kann. Die Sprache machte 


Hier werden einzelne Fach- 
ausdrücke eingehend behandelt. 
Da bei der Kommunikation mit 
dem Computer meist die 
englische Sprache verwendet 
wird, werden hier zunächst die 
englischen Begriffe genannt, 
dann die deutsche Übersetzung. 
In den Gesamtindex werden 
sowohl deutsche als auch 
englische Stichwörter aufge- 
nommen, damit Sie es leichter 
haben, das von Ihnen 
Gesuchte zu finden. 


den Rechnereinsatz vor allem für In- 
genieure und andere Wissenschaft- 
ler interessant. Sie waren eher bereit, 
etwas dem vertrauten mathemati- 
schen Formalismus Entsprechendes 
zu erlernen, als die Zeit und Geduld 
für das Programmieren im Maschi- 
nencode aufzubringen. FORTRAN 
wurde ein durchschlagender Erfolg 
und ist auch heute noch die verbrei- 
tetste Hochsprache. 

Als große Errungenschaft galt an- 
fangs die Möglichkeit, Bibliotheken 
mit unabhängig compilierten FOR- 
TRAN-Unterprogrammen aufzu- 
bauen. Alle Großrechner verfügen 
über derartige Programmbibliothe- 
ken. Wegen ihrer Bedeutung als 
„Quellen“ wurden andere Sprachen 
— zum Beispiel PASCAL — so ausge- 
legt, daß sie auf FORTRAN-Biblio- 
theksprogramme zugreifen können. 

FORTRAN hat eine stolze Zahl von 
Abkömmlingen, wie ALGOL, PAS- 
CAL und BASIC. Das historische Ge- 
wicht ist jedoch darin zu sehen, daß 
FORTRAN den Computer aus den 


Rechnerlabors der Universitäten her- 
ausholte und ihn in Ausbildungsstät- 
ten und Fabrikhallen zu einem 
selbstverständlichen Werkzeug von 
Wissenschaft und Technik werden 
ließ. Der Büro- und der Heimcompu- 
ter lagen dann nicht mehr fern: FOR- 
TRAN machte den Rechner auch 
dem Nicht-Fachmann zugänglich 
und leitete einen wichtigen Schritt 
auf dem Weg zu einer benutzer- 
freundlichen Datenverarbeitung ein. 


Fourth Generation = 

Vierte Generation 

In der Rechnerentwicklung umfaßt 
eine Generation immer etwa ein 
Jahrzehnt. Es beginnt jeweils mit 
dem Aufkommen einer aufwendigen 
neuen Technologie, die mit Ende 
dieser Zeitspanne alltäglich wird. 
Die Anfänge der „ersten Genera- 
tion“ lagen vor 1950 bei den ersten 
speicherprogrammierten Rechnern 
mit Elektronenröhren. Die „zweite 
Generation“ begann Ende der Sö0er 
Jahre mit der diskreten Transistorlo- 
gik. Die „dritte Generation“ vom Än- 
fang der 60er Jahre (typischer Ver- 
treter ist der IBM 360) ist durch die 
Verwendung integrierter Schaltun- 
gen und die Entwicklung umfäng- 
licher Betriebssysteme gekennzeich- 
net. Und die „vierte Generation“ 
wurde zu Beginn der 70er Jahre mit 
der Einführung der LSI- und der 
VLSI-Technik eingeleitet. Diese 
Schaltungstechnik wird heute bei 
Großrechnern wie bei Microcompu- 
tern angewandt. Auch die Micros ha- 
ben einige Entwicklungsstadien 
durchgemacht, bis sie den heutigen 
Stand als vollwertige Rechner mit 
beachtlicher Speicherkapazität, inte- 
grierter Software und der Fähigkeit 
zu Mehrprogramm- sowie Verbund- 
netz-Betrieb erreichten. 


Bildnachweise 
1233, 1258: Ian McKinnell 
1234, 1253, 1256, 1257: Kevin Jones 
1236, 1237, 1239, 1240, 1250: 
Liz Dixon 


1238: Wattleworth Silk McConachie, 
Chris Tucker 

1245, 1246, 1247: Chris Stevens 

1252: Kevin Jones, Liz Dixon 

1254: Liz Heaney 


|||, nu EEE u ce = 


Fachworter von A bis Z 


Source Code = Quellprogramm 

Ein Quellprogramm ist in einer Com- 
piler- oder Assemblersprache ge- 
schrieben. Daraus muß vor Äblauf im 
Rechner durch Übersetzen in den 
Maschinencode ein „Objektpro- 
gramm“ erzeugt werden. Das Quell- 
programm, z.B. in PASCAL oder CO- 
BOL, wird zunächst einer syntakti- 
schen Prüfung unterzogen; treten da- 
bei keine Fehler auf, folgt die Com- 
pilierung. Auch ein Assemblerpro- 
gramm mit seinen mnemotechni- 
schen Befehlen und symbolischen 
Adressen stellt ein Quellprogramm 
dar, das durch Ässemblieren in die 
Maschinensprache umgesetzt wird. 


Split Screen = Fenstertechnik 

Bei dieser Technik wird der Bild- 
schirm in zwei oder mehr Felder un- 
terteilt, so daß oben auf dem Schirm 
ein Menü stehen kann, während dar- 
unter der Text dargestellt wird. Die 
untere Schirmhälfte läßt sich dabei 
unabhängig von der oberen bearbei- 
ten, und der Benutzer kann auch 
meist beliebig zwischen den Fen- 
stern hin und her springen. Das ist 
beispielsweise beim Editieren lan- 
ger Schriftstücke sehr praktisch, weil 
ältere Passagen parallel zum Neuent- 
wurf überarbeitet werden können. 
Besonders bei Äbenteuerspielen fin- 
den Sie jetzt immer häufiger auch 
einen geteilten Grafikschirm. 


Spooler = Spooler 
Systemprogramme, die den Daten- 
fluß an Peripheriegeräte (meist 
Drucker oder externe Speicher) auf- 
fangen und nach dem Warteschlan- 
genprinzip in eigener Regie verwal- 
ten, heißen „Spooler“. Sie sind vor 
allem deshalb zweckmäßig, weil die 
Ausgabegeschwindigkeit des Pro- 
zessors sehr viel größer ist als die 
Aufnahmefähigkeit der Peripherie. 
Wenn Daten dann zunächst in einen 
Puffer gesteckt werden, braucht die 
CPU nicht auf das externe Gerät zu 
warten. Zumeist arbeitet der Spooler 
unabhängig von der CPU und läßt 
sich direkt vom zugehörigen Pen- 
pheriegerät mitteilen, wann wieder 
neue Daten gesendet werden 
können. 


Hier werden einzelne Fach- 
ausdrücke eingehend behandelt. 
Da bei der Kommunikation mit 
dem Computer meist die 
englische Sprache verwendet 
wird, werden hier zunächst die 
englischen Begriffe genannt, 
dann die deutsche Übersetzung. 
In den Gesamtindex werden 
sowohl deutsche als auch 
englische Stichwörter aufge- 
nommen, damit Sie es leichter 
haben, das von Ihnen 
Gesuchte zu finden. 


„Stacks“ oder Stapelspeicher spielen in 
der Datenverarbeitung für das kurzfri- 
stige Deponieren von Informationen eine 
wichtige Rolle. Sie sind besonders ein- 
fach zu handhaben. Beim LIFO-Stack ist 
wie beim Würfelstapel aus dem Bauka- 
sten der Zugriff nur von oben her mög- 
lich. Die Reihenfolge der gespeicherten 
Größen bleibt vom Eintragen bis zum 
Auslesen unverändert, was für die Ver- 
waltung der Rücksprungadressen bei 
verschachtelten Unterprogrammaufrufen 
ideal ist. Eine einfache Einsatzmethode 
für nicht so routinierte Änwender. 


Square Wave = Rechtecksignal 
Eın elektrisches Signal, das perio- 
disch zwischen zwei Spannungspe- 
geln hin- und herspringt, wird als 
„Rechtecksignal“ bezeichnet. Eine 
solche Impulsfolge ıst als Muster 
von binären Nullen und Einsen inter- 
pretierbar und dient zur Informa- 
tıonsübertragung, beispielsweise 
zwischen CPU und der Peripherie. 


Stack = Stapelspeicher 

Der „Stack“ ist als spezieller Spei- 
cherbereich der CPU eines Compu- 
ters zugeordnet und wird zur kurzfri- 
stigen Ablage von Registerinhalten 
und anderen Informationen benutzt. 
Die Kapazität des Stack und seine 
Lage im Arbeitsspeicher hängt vom 
jeweiligen Prozessor ab: Beim 6502 
liegt der Stack auf der Nullseite 
(Zero Page) und faßt nur 256 Byte, 
beim Z80 dagegen können ihm be- 
lıebige Adressen und bis zu 64 
KByte zugeteilt sein. Der Stack ist 
aber stets in gleicher Weise organi- 
siert und geordnet. 

Jeder Prozessor verfügt über be- 
sondere Stack-Befehle zum Eintra- 
gen (PUSH) und Entnehmen (POP) 
von Information. Beim üblichen 
LIFO-Stack werden die Daten „auf- 
einander" gestapelt; die letzten Ein- 
träge werden zuerst ausgelesen. 

An diesem Prinzip kommt man 
beim Umgang mit dem Stack kaum 
vorbei: Die tieferstehende Informa- 
tion ist nur zugänglich, wenn der 
Stack von oben her weit genug ab- 
gearbeitet ist. Für den Zugniff hält 
ein bestimmtes CPU-Register, der 
„Stack Pointer“ (Stapelzeiger), stets 
als aktuelle Adresse die der zuletzt 
angesprochenen Speicherzelle be- 
reit. Der Stapelzeiger wandert beim 
Füllen und Leeren des Stack auto- 
matisch auf- bzw. abwärts, kann aber 
seitens des Programmierers bei Be- 
darf auch verschoben werden. 
Stack-Manipulationen sind nur im 
Maschinencode vorgesehen, aber es 
gibt sie auch in FORTH. 


Bildnachweise 
2213: Kevin Jones 
2214: Liz Heany 
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Die Steuersoftware ist in ,‚FORTH' geschrieben, das Betriebs- 
system basiert auf ‚C‘ und das Handbuch ist japanisch 


Die Qual 
der Wahl 


Für die meisten Hobby-Anwender 


reicht BASIC zur Programment- 
wicklung völlig aus. In Sonderfäl- 
len braucht man jedoch besser 
angepaßte Sprachen. Eine gründ- 
liche Analyse des Vorhabens 
sollte die Qual der Wahl jedoch 
lindern können. 


Is vor kurzem stand dem Heimcomputer- 

Freund ausschließlich BASIC oder Maschı- 
nensprache zur Verfügung. Heute sınd dage- 
gen fast alle verbreiteten Sprachen auch für 
dıe kleinsten Rechner erhältlich, dıe gesamte 
Palette steht beim IBM-Kompatiblen oder an- 
deren MS-DOS-Rechnern zur Verfügung. Com- 
piler und Interpreter können recht teuer sein, 
daher arbeiten nur wenige Anwender mit mehr 
als dreı Sprachen. 

Effektivität ın bezug auf Speichergröße-und 
die Arbeitsgeschwindigkeit sınd dıe wichtig- 
sten Faktoren. Das gılt besonders beı Program- 
men, dıe mit der Außenwelt kommunizieren 
sollen. Manche Programme waren ın BASIC so 
schwierig zu erstellen, daß es leıchter ist, eine 
neue, besser geeignete Sprache zu lernen und 
das Programm damit zu entwickeln. Ein Pro- 


Sprache: BASIC 

Vorteile: Leicht erlernbar und einfach in der 
Anwendung, weit verbreitet. Preiswert. Vielsei- 
tige Arithmetik-Funktionen. Komfortable 
Stringverarbeitung. 

Nachteile: In vielen Versionen kaum Möglich- 
keiten für Modulprogrammierung und Steuer- 
strukturen. Keine Norm. Programmausführung 
langsam. Schlechtes File-Handling. Einge- 
schränkte Zahl von Datentypen und -strukturen. 
Programme undurchsichtig. 

Anwendung: Kurze, einfache Programme mit 
Berechnungen oder Stringverarbeitung. 


Sprache: LOGO 

Vorteile: Solide mathematische Grundlage, 
leicht zu lernen. Turtle-Grafik. Gute Möglich- 
keiten zur Listenverarbeitung und für modula- 
res Programmieren, viele Datentypen und 
Strukturen. Preiswert. 

Nachteile: Auf höherer Ebene ist die Pro- 
grammierung schwierig. Viele nicht-kompati- 
ble Versionen. Ausführung langsam. 
Anwendung: Grafik, Listenverarbeitung, Ler- 
nen von Mathematik und Einführung in höhere 
Programmkonzepte. 


Sprache: PASCAL 

Vorteile: Gut struktunert. Viele Datentypen. 
Weitgehend standardisiert. Verbreitet. Einfache 
Programmienıng. 

Nachteile: Ein/ Ausgabe nicht klar definiert, 
File-Handling unbefriedigend. 

Anwendung: Einüben guter Programmiertech- 
nik. Allgemeine Aufgaben von beschränktem 
Umfang. 


Sprache: FORTH 
Vorteile: Schnelle Verarbeitung, vom Änwen- 


gramm zur on-lıne-Verarbeitung von Lagerda- 
teien wäre ın COBOL durch den Eınsatz inde- 
xlerter Dateien sehr einfach zu erstellen. In 
BASIC müßte dagegen mit sequentiellen Da- 
teien oder einem Hashing-Algorıthmus und 
Random Access Files gearbeitet werden. 

Bedienerfreundliche, leicht erlernbare Spra- 
chen bereiten beı größerem Programmumfang 
oft Probleme. Hier kommt es darauf an, daß 
sich das Programm ın selbständige Module 
zerlegen läßt, die unabhängig voneinander 
programmiert werden können. 

Einige Sprachen, etwa COBOL und FOR- 
TRAN, sınd gemäß allgemeingültiger Riıchtlı- 
nıen fest definiert; dıe Anpassung an neue 
Hardware- und Verarbeitungstechniken ist 
dann recht mühsam und langwierig. Dafür er- 
fordert das auf einem Rechner erstellte Pro- 
gramm nur eine erneute Compillerung und nur 
wenige Änderungen, bis es auf dem anderen 
Computer läuft. 

Sprachen wie PASCAL und C haben nur eine 
Art de facto-Standard, der von den Erfindern 
festgelegt wurde. Die meisten Versionen die- 
ser Sprachen entsprechen diesem Standard 


der auszubauen. Gute Struktunerung. 
Nachteile: Das Niveau ist oft zu niedrig. 
Schwer verständlich. Viele verschiedene 
Versionen. 

Anwendung: Programmierung auf maschinen- 
nahem Niveau, speziell bei der Hardware- 
steuerung. 


Sprache: FORTRAN 

Vorteile: Standardisiert. Umfangreiche Soft- 
ware-Bibliothek. Sehr viele Funktionen. 
Nachteile: Altmodisch. Unbefnedigende 
Strukturierung. Programme oft unverständlich. 
Festgelegte Programmgestaltung. 
Anwendung: Allgemeine wissenschaftliche, 
mathematische Programme und Änwendungen 
aus dem Produktionsbereich. 


Sprache: COBOL 

Vorteile: Standardisiert, für viele Rechner. 
Leicht verständlich. Gutes File-Handling. 
Nachteile: Schwer zu erlernen. Compiler sind 
umfangreich und teuer. Schlecht struktunert, 
geringe Zahl von Datentypen. 

Anwendung: Kommerzielle Daten- 
verarbeitung. 


Sprache: C 

Vorteile: Viele Datentypen und Strukturen. 
Gute modulare Struktur. Einfacher Zugang zur 
Hardware. Programme sind schnell. 
Nachteile: Programme unübersichtlich. Für 
ernsthafte Anwendungen ist das Niveau zu 
niednig. Nicht völlig standardisiert. 
Anwendung: Systemsoftware als Ersatz für 
Assembler. Für besonders schnelle 
Änwendungen. 

Sprache: LISP 

Vorteile: Gute Listenverarbeitung, vielseitige 


zwar, bei PASCAL sınd Jedoch Ein- und Ausga- 
beprozeduren nicht fest definiert; der Anwen- 
der hat also freie Bahn für Zusätze und Ände- 
rungen. Die entstandenen Programme sınd na- 
türlıch nıcht problemlos übertragbar. 

Ein weiterer Faktor ist das Übersetzungspro- 
gramm. Interpreter sınd ım allgemeinen einfa- 
cher zu bedienen und eignen Sich besser für 
die Programmentwicklung, dafür sınd sie aber 
auch langsamer beim Programmablauf. Com- 
piler dagegen sınd schwierig anzuwenden, 
das Endprodukt arbeitet dafür effektiver. Die 
Unterschiede nehmen allerdings durch die 
Entwicklung von Debugger-Programmen und 
komfortablen Compilern zunehmend ab. 

Einige Sprachen arbeiten durch spezielle 
Hardware-Neuerungen sehr viel schneller. So 
wurde vıel Aufwand ın die Entwicklung eines 
Prozessors gesteckt, der dırekt ın FORTH ar- 
beiten kann. 

Der Hauptfaktor bleibt aber ımmer die ÄAn- 
wendung, für die eine Computersprache ein- 
gesetzt werden soll. Wır möchten Ihnen hier 
dıe wıchtigsten Sprachen mit ıhren Vorzügen 
und Schwachpunkten vorstellen. 


mathematische Funktionen. Umfangreiche Soft- 
ware und Hilfsprogramme. Bei größeren Rech- 
nern weit verbreitet. 

Nachteile: Schwer erlernbar, schwer 
anzuwenden. 

Anwendung: Künstliche Intelligenz und allge- 
meine Listenverarbeitung. 


Sprache: PROLOG 

Vorteile: Gute mathematische Basis. Läßt sich 
einfach einsetzen. Steht dem menschlichen 
Denken nahe. 

Nachteile: Keine rein relationale Sprache, es 
gibt verfahrensonentierte Änsätze. 
Anwendung: Künstliche Intelligenz, Daten- 
banksysteme. 


Sprache: Assembler 
Vorteile: Volle Kontrolle über alle Rechner- 
komponenten. Effektivste Programmiersprache. 
Nachteile: Keinerlei Norm. Schwer zu erlernen 
und anzuwenden. 

Anwendung: Höchste Effizienz, aber nur, 
wenn sonst „nichts geht". 


Sprachgefühl 


In der Tabelle ist eine Reihe von Änwendungen aufgeführt. Die 
passenden Sprachen stehen nach Eignung geordnet rechts daneben. 


Sprachen 


FORTRAN, BASIC, PASCAL 
COBOL, PASCAL, BASIC 
FORTH, C, Assembler 
PROLOG, C, BASIC 
LISP, PROLOG, LOGO 
LOGO, PROLOG, PASCAL 


Anwendung 


Statistische Änalysen 
Lagerverwaltung 
Robotersteuerung 
Adventure-Spiele 
Expertensysteme 
Ausbildung 
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Das „As 


Als einziger preisgünstiger Heim- 


computer ist der „Jupiter Ace“ mit 
FORTH anstelle von BASIC als 
Standardsprache ausgestattet - 
eine Herausforderung für alle an- 
gehenden FORTH-Programmierer. 


er Jupiter Ace ist insofern ein As, alser zu 

den wenigen Microcomputern gehört, die 
nicht von Haus aus mit BASIC arbeiten. Deshalb 
ist unter seinen Fans immer noch eın schwung- 
hafter Handel mitdem Gerätund der dazugehö- 
renden Software ım Gange, obwohl der Rech- 
ner seit 1983 nicht mehr gebaut wird. 

Die Ausrüstung mit FORTH als Standard- 
sprache hebt den Jupiter Ace deutlich von der 
Konkurrenz ab. Und er ist gebraucht so billig zu 
haben, daß Sıe damit günstiger wegkommen, 
als daß Sıe sich zum Kennenlernen von FORTH 
dıe nötigen Ergänzungen zu Ihrem vorhande- 
nen Rechner kaufen. 


Programmieren in FORTH 


BASIC-Version 
100 REM A BASIC PROGRAM TO PRINT 'SHAZAM! 
110FORX=1TO6 
120 PRINT "SHAZAM!” 
130 NEXT X 
140 END 
RUN 
FORTH-Version 
( AFORTH PROGRAM TO PRINT 'SHAZAM!’) 
: SHOUT .” SHAZAM! ” ;. 
:CHORUS 6 0 DO SHOUT LOOP; 
CHORUS 
Die beiden vorstehenden Programme leisten ge- 
nau das gleiche, wobei das BASIC-Programm eher 
an ein Kochrezept erinnert, während die FORTH- 
Fassung wie ein Zauberspruch aussieht. 

In FORTH können auf der Basis eines gegebe- 
nen Grundvorrats an Befehlen (,„Wörter") jederzeit 
neue Kommandos definiert werden, um das Voka- 
bular zu ergänzen. Im obigen Beispiel ist SHOUT 
für das Ausdrucken einer Zeichenkette neu einge- 
führt worden, und CHORUS ist aus dem zuvor defi- 
nierten SHOUT und einigen Wörtern zusammenge- 
setzt worden. 

Die Zahlenwertspeicher ist in FORTH als Stapel 
(Stack) organisiert. Die gewohnten arithmetischen 
und logischen Operationen sind in FORTH — ange- 
paßt an die Stack-Technik — in „Umgekehrter Pol- 
nischer Notation“ zu schreiben. Das Programmie- 
ren in FORTH erfordert in mehrfacher Hinsicht 
eine Umstellung, die sich wegen der Leistungsfä- 
higkeit dieser Sprache aber auszahlt. Der Umgang 
mit FORTH hat einen ähnlichen Reiz wie das Spie- 
len mit dem Rubik-Zauberwürfel, und so etwas 
macht nun mal dem einen Spaß, während es den 
anderen langweilt. 

Die Vielseitigkeit von FORTH wird dadurch er- 
zeugt, daß neue Befehle definiert werden können. 
Der Benutzer kann den Wortschatz ganz auf die 
Bedürfnisse des jeweiligen Anwendungsfalls zu- 
schneiden. 
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Tastatur 

Die Tasten ın der ober- 
sten Reihe sınd alle dreı- 
fach belegt. Die Um- 
schaltung erfolgt durch 
Drücken von SHIFT bzw. 
SYMBOL SHIFT. Außer- 
dem stehen sıeben Gra- 
fikzeichen für dıe Erzeu- 
gung einfacher Dıa- 
gramme und Grafiken 
zur Verfügung. 


Microprozessor 
Beim Jupiter Ace wurde 
als CPU ein Z80 gewählt 
— das verwundert nıcht 

angesichts der Tatsache, 
daß hier die gleiche Ent- 
wicklungsmannschaft am 
Werk war wıe beim Sın- 
clair Spectrum. 


Lautsprecher 
Für dıe Tonwiedergabe 
sorgt ein Piezoschwinger, a 

wie er In ähnlicher Form 

auch als Signalgeber beı 

Digital-Armbanduhren 

eingesetzt wırd. Das ge- 

nügt für einfache . 
Sound-Effekte. 


Kontaktfelder 

Beim Betätigen einer 
Taste wırd das Gummi 
der Tastenträgerplatte 
gegen das Kontaktbah- 
nenmuster auf der Pla- 
tine gedrückt und der 
Stromkreis geschlossen. 


I  — — es En 


Videoschaltung 

Hier finden Sie noch eine 
ganze Baustein-Samm- 
lung; für Rechner, die in 
kleinen Stückzahlen pro- 
duziert werden, ist die 
Anfertigung besonderer 
Chips zu teuer. 


Buserweiterungsstecker 
Außer für die Speicher- 
erweiterung eignet sıch 
diese Steckleiste auch 
für einen Adapter für das 
gesamte Sınclair-Zubehör. 


FORTH-EPROMs 

Das FORTH-System ist ın 
zwei 4-KByte-EPROMs 
gespeichert. Die Mas- 
kenherstellung für ROMs 
rentiert sich erst beı sehr 
hohen Stückzahlen, so 
daß für kleinere Serien 
nur EPROMs ın Frage 
kommen. 


Benutzeranschluß 
Dieser Platınenstecker ıst 
vorwiegend für einen 
Drucker gedacht. Aber 
auch andere Peripherie- 
geräte sınd möglıch. 


Taktgeber 

Die Z80-CPU hat keinen 
internen Generator für 
die Taktfrequenz. Eın se- 
parater Quarzkristall er 
zeugt den 1-MHz-Takt. 


HF-Modulator 

Mit dem Antennensignal 
des Jupiter Ace laßt sıch 
ein (Schwarz-weiß-) 
Fernseher betreiben. 


Cassettenrecorder- 
anschluß 


AÄußerlich ist der Rechner eng mit den Sin- 
clair-Modellen verwandt. Wie der ZX80 hat 
auch der Jupiter Ace eın leichtgewichtiges, weı- 
ßes Plastıkgehäuse Zur Klangwıedergabe 
dient ein kleiner Piezokristall, dem sich nach 
naherer Beschäftigung mit dem Gerät auch et- 
was mehr als nur einfache Tonfolgen entlocken 
lassen. Wıe dıe Sınclair-Rechner hat auch der 
Jupiter Ace einen Transformatoranschluß, eine 
Antennenbuchse und zweı große mehrpolige 
Buchsen für Penpheniegeräte. Ein Cassetten- 
recorder Ist über zweı Steckbuchsen anschließ- 
bar. 

Die Bıldschirmausgabe erfolgt schwarzweıß 
mit 32 Zeichen ın 22 Zeilen, ım Grafikmode auch 
64x48. Jedes Zeichen kann vom Benutzer neu 
gestaltet werden, um zum Beispiel mathemati- 
sche Symbole oder Sonderzeichen zu erzeu- 
gen. 

Der Jupiter Ace ıst senenmäßig mit drei 
KByte ausgestattet. Für kurze FORTH-Pro- 
gramme reıcht diese Speicherkapazität Jedoch 
aus. Für höhere Ansprüche gibt esein I6K- und 
ein 32K-Erweiterungspaket. Ferner ist eın 
Adapter erhältlich, der dıe Verwendung fastder 
gesamten Sınclaırr-Pernnphene ermöglicht. Au- 
ßerdem werden eın Centronics-Interface, eine 
Tonbox und eın Zusatz zur Erleichterung der Ta- 
staturbedienung vertrieben. 


Jupiter Ace 


ABMESSUNGEN 
215 x 190 x 30 mm 


GEWICHT 
246 g 


ZENTRALEINHEIT 
ZB0OA 


TAKTFREQUENZ 
1 MHz 


SPEICHER 


3 KByte RAM, extern auf 51K 
erweiterbar; 8 KByte ROM. 


BILDSCHIRMDARSTELLUNG 


Schwarzweiß mit 22 Zeilen zu 
32 Zeichen, bzw. 64 x 48 bei 
Grafik. 


SCHNITTSTELLEN 


Femseher- und Cassettenrecor- 
deranschluß, 9-V-Versorgungs- 
buchse; zwei Platinenstecker, 
wovon der eine alle Daten- und 
Adreßleitungen des Prozessors 
führt, der andere nur die Da- 
ten- und einige Steuerleitun- 
gen. 


MITGELIEFERTE SPRACHE 
FORTH 


MITGELIEFERTES ZUBEHÖR 


Steckertransformator, Casset- 
tenrecorder- und TV-Anschluß- 
kabel. 


TASTATUR 


Gummitasten wie beim Sinclair 
Spectrum, aber weicher und 
unpräziser, die genau mittig 
gedrückt werden müssen; alle 
mit Wiederholfunktion und 
Zweifachumschaltung, was die 
Erzeugung sämtlicher ÄSCII- 
Codes ermöglicht. 


| HANDBUCH 


Das Handbuch ist sehr ausführ- 
lich und enthält alle wichtigen 
Informationen. Vom gleichen 
Verfasser stammen auch die 
Handbücher für den ZX81 und 
den Sinclair Spectrum. Auf 180 
Seiten wird eine Einführung in 
FORTH und eine ausführliche 
Beschreibung des Jupiter Ace 
gebracht, beides durch zahl- 
reiche Beispiele illustriert. 
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